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Quattro milioni di dischetti ODP venduti 
in Italia dal 1978 fanno del dischetto ODP 
un best seller deM’informatica. Un suc¬ 
cesso determinato dall’alta affidabilità 
del dischetto ODP, risultato della tecno¬ 
logia edella ricerca più avanzata. Per que¬ 
sto scegli un best seller, scegli ODP. ■ 
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MacComics 

Un Macintosh, un po' di sense of humour, e il sorriso è assicurato. Ma 
non è tutto: la grafica, come sempre, la fa da padrona... 


Computer cuisine 

Tutti hanno in casa un cassetto un po' disordinato, pieno di fogli e 
foglietti, ritagli e appunti: sono le meravigliose ricette della zia, i consigli 
dell'amica e i suggerimenti della rivista preferita. Ma un po' d'ordine non 
ci starebbe bene? Più veloce da consultare, senza il rischio di far 
confusione, il ricettario sul personal diventa più ricco e pratico. 


Effetti speciali 

Vi piacerebbe avere un repertorio di suoni e rumori d'ogni genere? 
Questo programma usa lo schermo grafico Hi-Res per creare effetti 
sonori o semplici melodie. A centinaia. E subito pronti su dischetto. 


Volano 

Ce ne vuole per arrivare ad agosto, ma invece di giocare a volano sulla 
spiaggia, ci si può accontentare a giocarlo, per il momento, sull'Apple. 
La grafica eccezionale e il minore impegno fisico ricompenseranno 
dell'estate lontana. 


Utility 

Vi piacerebbe aggiungere ai vostri programmi un menu professionale? 
Qui lo troverete già fatto e pronto da inserire in testa al listato, con un 
risparmio e una resa che... 


AppleWorks 

Continua il corso che permette a tutti di imparare facilmente a costruire 
da sé i modelli applicativi per le proprie esigenze. E in questo numero 
viene affrontato il data base. 


Diesel o benzina? 

Se sarà bianca o rossa, a due. quattro o cinque porte, metallizzata o 
meno, si vedrà. Essenziale, prioritario, determinante e il motore. Come 
sceglierlo? Chiedendo agli amici, guardando i giornali, facendo testa o 
croce? O, meglio, affidandosi al giudizio del computer? 


Computer cuisine, pag. 14 


Macprove 

Magic e FileVision sono due ottimi programmi per dotare di vista il 
Macintosh. Inoltre aprono la strada a possibilità grafiche incredibili. 
Basta una telecamera e... 


Grafica 

Non è facile sfruttare in pieno le qualità grafiche dell Apple, ma con 
questo programma può riuscirci anche il piu inesperto. E, una volta 
memorizzati su dischetto, i vostri capolavori... 


Le rubriche _ 

7 Applichi 
10 Applicosa 

90 Applicando si trova anche qui 


92 Appli Help 
94 Lettere 
96 Disk Service 




A suon di Apple, pag. 26 


Macnews 

Sei nuovi programmi per l'impareggiabile Macintosh, alcuni tradotti in 
italiano, altri giunti freschi freschi dall'America. 


Speciale Appliscuola 

Un diagramma cartesiano per rendere intuitivamente evidente il 
classico algoritmo euclideo per il calcolo del massimo comun divisore e 
un programma dimostrativo di chimica che fa parte del progetto 
americano Seraphim. 


Magic e MacVision, pag. 48 


Diesel o benzina? 
pag.23 
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Tutti i diritti di riproduzione e traduzio¬ 
ne di testi, articoli, progetti, illustra¬ 
zioni, disegni, listati di programmi, fo¬ 
tografie ecc., sono riservati a termini 
di legge. I programmi pubblicati su 
Applicando possono essere utilizzati 
per scopi privati, scientifici e dilettan¬ 
tistici, ma ne sono vietati sfruttamenti 
e utilizzazioni commerciali. I mano¬ 
scritti, i disegni, le foto anche se non 
pubblicati, non si restituiscono. 

• 
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(MI) - Fotocomposizione: News, Via 
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3, Milano. c Copyright 1985 by Editro¬ 
nica srl - Registrazione Tribunale di 
Milano n. 24 del 15.1.1983- Pubblicità 
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Grazie, innanzitutto, per la massiccia adesione al 
questionario pubblicato nel numero precedente di Applicando: 
stiamo elaborando i dati, che ci permetteranno di fare una rivista 
sempre più adeguata al gusto e alle esigenze dei lettori. 

Gli ultimi due numeri di Applicando sono andati esauriti, di 
conseguenza abbiamo dovuto aumentare la tiratura del 40 per 
cento. Grazie anche per questo: la forza di una rivista si basa 
soprattutto sul plauso dei propri lettori. L'entusiasmo con cui ci 
seguite ci permette di impiegare sempre maggiori forze nel 
"fabbricare", numero per numero, Applicando. 

Questo mese, in omaggio, trovate il Brillacomputer. Nella sua 
semplicità è davvero utile, perché, lo sappiamo tutti, a causa 
dell'elettricità elettrostatica la carrozzeria e il video di 
qualunque computer si sporcano facilmente, con le conseguenze 
antiestetiche del caso Come pulirlo? E' un problema. Guai ai panni 
inumiditi. L'alcol va bene? Chi lo sa. E con quello che costa il 
computer, meglio tenerselo così. Invece, con il fazzolettino 
imbevuto dello speciale prodotto detergente, potete andare 
tranquilli. 

Fra i programmi di questo numero, tutti validi e, spero, 
interessanti per voi, vorrei segnalarvi in particolare quello che 
permette di raccogliere, suddivise per argomento, le ricette di 
cucina. E' piaciuto così tanto a Gualtiero Marchesi, che il "Divino” 
della Nouvelle Cuisine ha voluto offrire ai lettori di Applicando 
alcune sue ricette speciali. 

E poi due Utilities davvero ottime, un sintetizzatore di suoni 
che permette di "applicare" una colonna sonora ai programmi di 
vostra produzione e un generatore di menù automatici, che 
trasforma il più semplice dei programmi in un lavoro da veri 
professionisti 

E poi... be', non voglio togliervi il piacere di scoprire da soli 
quanto ancora troverete nelle pagine di questo numero. Buona 
lettura. 



P.S. Un ringraziamento anche alla Polaroid Italia, che con il Palette 
messoci a disposizione ci ha permesso di pubblicare le foto di 
alcune immagini che non solo hanno abbellito esteticamente 
Applicando (vedi il Bridge, Golf, Volano, ecc ), ma testimoniano 
l'attenzione e lo sforzo di aziende, come appunto la Polaroid, di 
essere al passo coi tempi e di fare del computer uno strumento 
sempre più completo e indispensabile al mondo di oggi. 



UNIONE STAMPA 
PERIODICA ITALIANA 
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"Ovunque mi compri 
sono garantito 
un anno, ma solo 

la SALS INFORMATICA 

mi assiste gratuitamente 
a casa". 


L’offerta è valida per 
tutti i sistemi APPLE 
venduti dalla 
SALS INFORMATICA, 
a Genova, a partire 
dal 31 marzo 1985. 






V 


Curare 
con l’Apple 

Quello della ricerca scien¬ 
tifica, si sa, è tra i campi che 
più hanno tratto profitto 
dall'avvento del computer. 
Il tempo necessario per veri¬ 
ficare un'ipotesi, racco¬ 
gliendo dati, elaborandoli e 
confrontandoli si è vertigi¬ 
nosamente ridotto; l'accura¬ 
tezza metodologica e la pre¬ 
cisione strumentale raggiun¬ 
te in laboratorio hanno di 
molto accresciuto il grado di 
certezza dei risultati speri¬ 
mentali; la capacità di me¬ 
morizzazione dati dei com¬ 
puter, praticamente illimita¬ 
ta, ha permesso infine di im¬ 
magazzinare moltissime in¬ 
formazioni preziose per le 
successive ricerche. 

Non soltanto ai grandi 
eleboratori, però, va il meri¬ 
to di avere snellito metodo¬ 
logie e aperto nuove pro¬ 
spettive; spesso anzi è stato 
proprio il personal compu¬ 
ter, per la sua agilità di uti¬ 
lizzazione e per i costi conte¬ 
nuti, a permettere entusia¬ 
smanti applicazioni. 

A Pesaro l'équipe di ricer¬ 
ca della divisione ematologi¬ 
ca guidata dal prof. Guido 
Lucarelli lavora da tempo 
con un Apple //, fornito dal¬ 
l'Associazione italiana con¬ 
tro la leucemia, direttamen¬ 
te collegato a un microsco¬ 
pio Leitz. Con questa attrez¬ 
zatura i ricercatori hanno la 
possibilità di analizzare al 
microscopio le cellule da 
esaminare, inserendo diret¬ 
tamente nell'elaboratore i 
valori degli indici identifica¬ 
ti. E l’Apple che provvede, 
automaticamente, a sposta¬ 
re il microscopio sui due assi 
coordinati, posizionandolo 
correttamente secondo una 
geomatria prefissata dagli 
stessi ricercatori. 

Una volta immagazzinati, 
i dati vengono elaborati dal¬ 
l’Apple. "Le informazioni 
prodotte dall'elaboratore 
sono per noi utilissime per¬ 
ché consentono una mag¬ 
gior accuratezza nella dia¬ 
gnosi della leucemia acuta 
con anticorpi monoclonali e 



La dottoressa Nesci, della divisione ematologica di 
Pesaro, interroga l'Apple // nel laboratorio di immunologia. 


nella ricerca di compatibilità 
HLA per il trapianto di mi¬ 
dollo osseo" spiega il prof. 
Lucarelli. E quella del tra¬ 
pianto osseo, tecnica nella 
quale la sua équipe è all’a¬ 
vanguardia, è la tecnica te¬ 
rapeutica attualmente allo 
studio per combattere alcu¬ 
ne forme di leucemia. 

Il software utilizzato dal¬ 
l’Apple della divisione ema¬ 
tologica, ovviamente, è sta¬ 
to creato su misura: tutti i 
programmi sono stati realiz¬ 
zati dallo Studio Computer 
Design di Pesaro dove però, 
con lodevole correttezza, 
precisano che "il merito di 
aver saputo progettare pro¬ 
grammi tanto preziosi e ine¬ 
diti va tutto al dottor Delfini 
del laboratorio di immuno¬ 
logia". 

Divulgare 
con l’Apple 

li dott. Sergio Rassu di 
Sassari, studioso di endocri¬ 
nologia, si definisce "fortu¬ 
nato possessore di un Apple 
II Europlus". Nella sua fati¬ 
ca di autore scientifico, in¬ 
fatti, l'aiuto del personal 
computer non è un sollievo 
da poco. 

Il Pancreas endocrino , 
per esempio, che tra l’altro è 
un volume ricco di disegni, 
schemi e diagrammi, è stato 




realizzato sulla tastiera del¬ 
l’Apple con software di listi¬ 
no. 

L’idea di stendere e dif¬ 
fondere a livello nazionale 
una serie di monografie di¬ 
vulgative, ma rigorosamen¬ 
te curate, di endocrinologia 

A destra, la copertina di un 
volume della collana 
"Caleidoscopio", diretta dal 
dott. Rassu di Sassari che è 
anche l'autore di questo 
saggio. 

In basso, un disegno tratto 
dal libro del dott. Rassu, 
realizzato con l’Apple II 
Europlus. Si tratta della 
raffigurazione schematica di 
un meccanismo stimolatore 
della secrezione del 
glucagone. 


Ormoni 

gastrointestinali 


era parsa al dott. Rassu sen¬ 
za dubbio interessante, ma 
non destinata, forse, a sti¬ 
molare l’interesse di un va¬ 
sto pubblico di lettori. 

Invece, "dopo i primi nu¬ 
meri con i quali abbiamo 
saggiato l’interesse per que¬ 
sta iniziativa di divulgazione 
scientifica dell'Endocrino¬ 
logia, ci siamo resi conto, 
dalle richieste ricevute, del¬ 
l'enorme interesse e curiosi¬ 
tà che la circonda." 

Di conseguenza il dott. 
Rassu, che dirige questa col¬ 
lana, e la Medicai Systems di 
Genova, che la sostiene eco¬ 
nomicamente, hanno inten¬ 
sificato l'attività editoriale: 
la collana è stata ufficializza¬ 
ta (adesso infatti ha anche 
un nome: "Caleidoscopio") e 
il programma rinvigorito, 
con nuovi titoli in program¬ 
mazione e con la partecipa¬ 
zione all’iniziativa di un 
sempre maggior numero di 
autori. 



SERGIO RASSU 


II 

Pancreas 

endocrino 
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Sistema adrencrgico 
(alfa) 
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CCP MILANO 



O SUPER VISION III. Monitorcolori 12", scher¬ 
mo antiriflesso. Possibilità di funzionamento 
in text mode su fosfori verde, ambra, bianco rever¬ 
se, selezionabili dall’utente. Risoluzione640x262. 

O VISION PAL. Monitorcolori 12”, schermo an¬ 
tiriflesso. Possibilità di funzionamento in text 
mode su fosfori verde, ambra, selezionabili dal¬ 
l’utente. Ingresso videocomposito. Low cost. 

O VISION PC. Monitorcolori 12", schermo anti¬ 
riflesso. Appositamente progettato per IBM 
PC. Risoluzione 640x262. 

O RGB VISION II. Monitor colori 12”. Risolu¬ 
zione 510x262. Ingresso RGB. Filtro smoked 
in dotazione. 

O KX1201 - E. Monitor fosfori verdi 12”, scher¬ 
mo antiriflesso. Ingresso videocomposito. 
Opzionale piedestallo di basculaggio KTS-1 con 


orologio LCD incorporato (rif. 16). 

O KX1212- E. Monitor fosfori verdi 12, schermo 
antiriflesso, compatibile con IBM PC. Opzio¬ 
nale piedestallo di basculaggio KTS-2 con orolo¬ 
gio LCD incorporato (rif. 17). 

O KP910. Stampante a matrice9x9,156 colon¬ 
ne a 140 cps bidirezionali ottimizzati, trasci¬ 
namento trattori e frizione, grafica. Elevata silen¬ 
zio sità. Near letterquality. Interfaccia Centronics. 
Disponibilefirmware percompatibilitàcon IBM PC. 
Capacità stampa su originale + 3 copie. 

Opzioni: (rif. 9) e (rif. 12). 

O KP- 810. Come KP910. Stampa su 80 colon¬ 
ne. Capacità stampa: originale + 2 copie. 

O KIF4308. Buffer di memoria esterno da64K 
bytes espandibili fino a 256 K bytes. 

Può pilotare due stampanti. 


© 


KFD 510. Minifloppy 5" 1/4 da 140K byte 
F slim line. Per Apple computers e compatibili 
Apple. 

O KIF 3600. Interfaccia colore grafica per IBM 
PC. Da utilizzare con Vision PC (rif. 3) e super 
Vision III (rif. 1). 

k KIF 3502. Interfaccia seriale RS 232 C. 


0 


® KIF 3210 S/64. Espansione di memoria da 
64K a 256K bytes per IBM PC completa di 
interfaccia seriale RS 232 C 

© RGB II B. Interfaccia RGB per computer 
Applell plus e Applell e, per i monitor (rif. 1) e 
(rif. 4). 

© KIF3700. Interfaccia monocromatica e stam- 
panteperlBM PC. Dautilizzarecon KX1212-E 
(rif. 6) e KP 910 o 810 (rif. 7) e (rif. 8). 
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Gigante nella qualità. Le periferiche TAXAN si 
sono imposte sul mercato USA per l'eccezionale 
affidabilità che nasce da una progettazione"senza 
economia" ed un’accurata scelta dei componenti 
impiegati. 


Eledra - Sede 

Milano - Viale Elvezia, 18 

Tel. (02) 34.97.51 (24 linee)- Telex332.332 ELEDRA I 

Eledra - Filiali 


Partner distributivi 

Genova - Informatica Service 
Tel. (010) 56.43.35 

Udine - Asem s.p.a. 

Tel. (0432) 96.10.14 - Telex 450.608 ASEM I 


Gigante nella gamma. TAXAN offre una gamma 
completa di periferiche" made in Japan", ideale per 
ogni tipo di personal computer( IBM, APPLE, COM¬ 
MODORE, SINCLAIR. BBC, ecc.). 


Gigante nella convenienza. Decisamente com¬ 
petitivo, il prezzo è infine un’altra piacevole qualità 
delle periferiche TAXAN. 


Torino 

Tel. (011 ) 30.99.111 - Telex 210 632 ELEDAT I 

Padova 

Tel. (049) 65.54.88 - Telex 430.444 ELEDAP I 

Bologna 

Tel. (051) 30.77.81 - Telex 213.406 ELEDAB I 

Roma 

Tel. (06) 81.10.151 - Telex 612.051 ELEDAR I 

Bari 

Tel. (080) 81.43.95 


ELEDRA^ 

DISTRIBUTORE PRODOTTI ELETTRONICI N I 











IdmIi 


Un Macintosh 
giramondo 


La nuova 
stampante 
Juki 5520 


ca ha una grande importan¬ 
za su Apple Macintosh: pur 
non essendo installato a bor¬ 
do un computer "di serie", la 
strumentazione di controllo 
delle numerose funzioni di 
bordo e di ausilio per la na¬ 
vigazione sono state ricava¬ 
te in gran parte da "schede" 
del noto computer. Per le 
esigenze elettriche di bordo 
sono stati invece previsti 
ben due generatori di cor¬ 
rente, che avranno il compi¬ 
to di ricaricare le batterie 
quando l'insolazione non 
permetterà alle celle foto- 
voltaiche installate di forni¬ 
re energia sufficiente alla 
strumentazione elettronica 
e alle altre utenze. 

Apple Macintosh è certa¬ 
mente uno dei candidati alla 
vittoria nella difficilissima 
regata intorno al mondo; es¬ 
sendo ai limiti superiori del¬ 
le misure ammesse, ha dalla 
sua parte un enorme poten¬ 


Tedesca 
e seriale 


Si chiama Juki 5520, arri¬ 
va da Amburgo ed è così 
nuova che non c’è ancora: a 
un prezzo tuttora misterio¬ 
so, ma senz’altro interessan¬ 
te, giungerà infatti solo in 
giugno sul mercato italiano. 

-Seriale e versatile, la nuo¬ 
va stampante colore e lette¬ 
ra, molto affidabile e facile 
da usare, ha la velocità di 
180 caratteri per secondo e 
permette una gamma di rea¬ 
lizzazioni piuttosto varia; 
anche il set dei caratteri e 
dei modi di stampa è esteso. 
È inoltre silenziosa (meno di 
60 DB) e compatta (463 x 
445 x 100 mm). 


Non si tratta dell’ultimo 
slogan pubblicitario, usato 
dalla Apple per rimarcare 
l’enorme diffusione che Mac 
ha già avuto sulle scrivanie 
di tutto il mondo. In questo 
caso, semplicemente e spet¬ 
tacolarmente, il simpatico 
personal ha prestato il suo 
nome a una gigantesca im¬ 
barcazione a vela, che parte¬ 
ciperà alla prossima edizio¬ 
ne del Giro del Mondo. La 
famosa regata per barche a 
vela, partendo dall'Inghil¬ 
terra, porta i concorrenti ne¬ 
gli oceani di tutto il mondo 
in quattro tappe: Cape 
Town, Sidney, Rio e, nuo¬ 
vamente, Inghilterra. 

Apple Macintosh è un’im¬ 
barcazione di 25 m di lun¬ 
ghezza, costruita su proget¬ 
to dello Studio Farr di An- 
napolis con le più avanzate 
tecniche costruttive e i ma¬ 
teriali più sofisticati oggi a 
disposizione. Il suo costo, 
naturalmente, è astronomi¬ 
co: sono stati infatti stanziati 
due milioni di dollari per la 
sola costruzione della barca, 
mentre un altro rilevante 
budget è stato previsto per 
le spese di partecipazione al¬ 
la massacrante corsa intorno 
al mondo. 

Con un peso totale di 
30.000 kg, Apple Macintosh 
ne ha in realtà ben 15.000 di 
zavorra; l’albero pesa 2.000 
kg e lo scafo raggiunge a ma¬ 
lapena i 9.000. Proprio que¬ 
sti dati fanno capire quanto 
sia sofisticata la tecnica co¬ 
struttiva adottata per questa 
imbarcazione. Lo scafo è in¬ 
fatti interamente in kevlar e 
vetro, con una struttura "a 
sandwich" che utilizza come 
anima il Nomex, un mate¬ 
riale impiegato nelle più 
avanzate costruzioni (Shut¬ 
tle, FI, componentistica de¬ 
gli aerei militari e commer¬ 
ciali) oltre a una schiuma 
poliuretanica ad alta densi¬ 
tà. La struttura interna di 
rinforzo dello scafo, e di so¬ 
stegno per la pesantissima 
chiglia di zavorra, è in allu¬ 
minio scatolato; è stata rea¬ 


lizzata a parte e successiva¬ 
mente introdotta nello scafo 
e debitamente collegata. 
L’albero, alto ben 32 m, è 
anch’esso in alluminio, frut¬ 
to di un’unica estrusione, 
mentre tutti i suoi cavi di so¬ 
stegno sono stati realizzati 
con tondini di acciaio inox a 
elevatissima resistenza. 

Tra le molte particolarità 
tecniche degne di nota c’è la 
costruzione del timone con 
un asse in titanio, realizzato 
per martellatura da un qua¬ 
dro pieno e successivamente 
forato, per alleggerirlo, con 
un getto di plasma (la stessa 
tecnologia che si usa oggi 
per realizzare i condotti di 
lubrificazione degli assi del¬ 
le gigantesche turbine idrau¬ 
liche da centrale elettrica). 
Pare che il solo timone sia 
costato 25.000 dollari! An¬ 
che la fusione della chiglia 
ha richiesto una tecnica par¬ 
ticolare a causa dell’enorme 
quantità di calore da smalti¬ 
re nella fase di raffredda¬ 
mento: si è quindi dovuto 
provvedere a effettuare fu¬ 
sioni successive, l'una sopra 
l’altra, per evitare che la 
gabbia in acciaio inox che 
regge i perni di collegamen¬ 
to con lo scafo venisse defor- 
mata dall’enorme calore 
delle 15 tonn. di piombo. 

Naturalmente l’elettroni¬ 


ziale che solo scelte sbaglia¬ 
te o sfavorevoli condizioni 
meteo possono ridurre. 













Nella pagina accanto, Apple Macintosh al varo in Sud Africa: 
notare la proporzione tra la dimensione dello scafo e quello 
delle persone a bordo. Qui sopra, una vista della coperta. 


Lunga vita 
per i drive 

Mille impurità, all’insa¬ 
puta dei più, si installano 
ogni giorno all’interno dei 
disk drive, congiurando 
contro la loro salute. La 
spolveratina esterna e l'at¬ 
tenzione a non lasciare trop¬ 
po in giro, alla polvere, i di¬ 
schetti che vi andranno inse¬ 
riti non bastano certo a man¬ 
tenere i drive davvero puliti; 
puliti, cioè, anche di dentro. 
Detto questo, però, resta da 
scoprire come si possa cura¬ 
re la pulizia di ordigni così 
impenetrabili: ci passa giu¬ 
sto giusto un dischetto! 

E proprio un disco, infat¬ 
ti, da far "girare" per mezzo 
minuto nel drive a testine in¬ 
serite, è la soluzione al pro¬ 
blema. Si chiama Cleanette 
ed è realizzato in fibra assor¬ 
bente: prima dell'inseri¬ 
mento vi sì versano alcune 
gocce di un apposito liquido 
detergente, e pulizia è fatta. 
Si deve ripetere l’operazio¬ 
ne molto spesso, per la buo¬ 
na salute del drive (un paio 
di volte la settimana), sosti¬ 
tuendo il disco con uno nuo¬ 
vo non appena si nota che 
detriti e impurità vi si sono 
depositati. Lunga vita, allo¬ 
ra, al drive. " 


Qui sotto, il nuovo set 
Cleanette con il liquido e i 
dischetti da far girare nel 
drive per mantenerlo pulito. 


Microline fa il bis 

Senza nessuna variazione 
di prezzo, la serie Microline 
si rinnova: tre nuovi model¬ 
li, infatti, stanno facendo la 
loro apparizione sul merca¬ 
to italiano; interfacciabili 
con il Macintosh, due di 
queste nuove stampanti gli 
si addicono soprattutto per 
la densità di stampa in modo 
grafico: può raggiungere i 
288 x 144 punti per pollice, e 
consente quindi la realizza¬ 
zione di grafici e disegni ad 
alta risoluzione. 

Sono facilmente pro¬ 
grammabili anche da pan¬ 
nello, oltre che da software, 
cosicché, in base al menù, 
sono possibili molte soluzio¬ 
ni personalizzate, che resta¬ 
no memorizzate anche a 
macchina spenta e riappaio¬ 
no per default all’accensio¬ 
ne. Il set di caratteri è molto 
esteso, e molto varia anche 
la scelta dei modi di stampa. 

Si chiamano ML192 e ML 


193 e vantano bassa rumoro¬ 
sità (55 DB), consumi con¬ 
tenuti (33 VA) ed elevata af¬ 
fidabilità: la testina, infatti, 
ha una vita media di 200 mi¬ 
lioni di caratteri; la velocità 
è di 160 cps. La larghezza è 
di 80 colonne per ML 192 e 
di 136 per ML 193. Il terzo 
modello infine. ML 182, ha 
una velocità di 120 cps con 
80 colonne; diversamente 
dagli altri due non stampa in 
qualità lettera, non monta 
l’inseritore automatico di 
fogli, né programma simboli 
speciali. Semplicissima da 
usare, però, e molto econo¬ 
mica, la stampante ML 182 
ha inoltre dalla sua un'altis¬ 
sima affidablità: 4.000 ore di 
MTBF. 


Un Profile 
per tavolozza 

Si è felicemente conclusa 
a Venezia, in piazza San 
Marco, un’esposizione di 
opere di giovani pittori rea¬ 
lizzata dalla fondazione Be¬ 
vilacqua La Masa con il pa¬ 
trocinio dell’assessorato alla 
cultura del comune. Tra gli 
artisti espositori è stato mol¬ 
to apprezzato (si è aggiudi¬ 
cato anche un "premio ac¬ 
quisto") Massimiliano Lon- 
go, che ha proposto una se¬ 
rie di opere di computer art. 
I suoi "dipinti" sono stati rea¬ 
lizzati tutti con un Apple //e 
con monitor a colori Taxan e 
con Profile, messi a disposi¬ 
zione dalla Personal Com- 
puters Sas di Cannaregio. 

L'Apple //e con Profile e il 
monitor a colori Taxan 
con un’immagine 
dell'opera di 
Massimiliano Longo. 














"Gli manca il sorriso", qualcuno ha 
affermato. "Quello che appare una 
volta inserito il dischetto non è 
sufficiente." Ma da quando è 
approdato sulla scrivania di chi 
disegna fumetti, il Macintosh è ormai 
disponibile con sorriso a 512 K. 



Un sorriso col Mac 


M ario Barbati, napole¬ 
tano. ventenne, al se¬ 
condo anno di architettura, 
si diletta di fumetti. Fino a 
qualche tempo fa li disegna¬ 
va a matita, come tutti, del 
resto. Ma da quando ha avu¬ 
to per le mani un Macintosh 
"ha scoperto il suo mezzo 
grafico ideale" come lui stes¬ 
so afferma. E col Macintosh 
ha realizzato il primo fumet¬ 
to fatto col computer e pub¬ 
blicato su 2984. 

Ad Applicando ha man¬ 
dato queste tre tavole, che 
pubblichiamo non solo per 
concedere cinque minuti 
d'intervallo sorridente ai 
nostri lettori, ma anche per 
testimoniare, una volta di 
più, la versatilità di questa 
macchina in campo grafico. 

Certo, senza l’idea, senza 
un minimo di tecnica, questi 
risultati non sarebbero facil¬ 
mente ottenibili, ma senza 
Macintosh i tempi di realiz¬ 
zazione si allungherebbero 
notevolmente. Ogni fondi¬ 
no, anziché un tocco di mou¬ 
se, richiederebbe una pa¬ 
zienza certosina. E ogni er¬ 
rore, poi, rischierebbe di 
compromettere tutto il lavo¬ 
ro. 

Qualche lettore accetta la 
sfida e vuole misurarsi an¬ 
che lui sul creativo terreno 
di Mac? 
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Computer 


Nella vita di ognuno, e 
più precisamente nella 
credenza della sua 
cucina, c’è un cassetto 
un po’disordinato, 
troppo pieno di fogli e 
foglietti, ritagli e appunti: 
sono le meravigliose 
ricette della zia, i 
consigli dell’amica e i 
suggerimenti della 
rivista preferita... Un 
patrimonio prezioso, 
che allieta ogni giorno il 
già felice rito del sedersi 
atavola. Ma... un po’di 
ordine non ci starebbe 
bene? Più veloce da 
consultare, senza il 
rischio di far confusione, 
il ricettario personale 
diventa più ricco e 
pratico. Se poi l’amica 
vuole una delle “vostre 
ricette”, unastampatina 
evia! 


cuisine 


(f o, credimi, come la fa mia zia 

N non lo fa nessuno”. Il salto con 
l’asta? Il massaggio con il balsamo Ti¬ 
gre? Il timballo di maccheroni, più 
probabilmente, oppure lo strudel, o 
semplicemente, perché no, l’uovo in 
padella. A volte sono anni e anni di 
oscura laboriosità casalinga, a volte è 
l’intuizione di un felice momento a 
sfociare nella gloriosa scoperta: basta 
aggiungere un cucchiaio di brandy sei 
minuti prima di spegnere il fuoco; il 
burro deve essere tiepido; mi racco¬ 
mando, carote piccoline! e così via... 

Ben oltre i quattro libri di cucina 
sullo scaffale si estende infatti il patri¬ 
monio di informazioni gastronomiche. 


le più svariate, che concorrono ogni 
giorno a movimentare le sorti del no¬ 
stro palato e del nostro fegato: al se¬ 
greto della zia si accompagna infatti il 
consiglio dello chef, il trucco svelato 
da una rivista, l’esperimento suggerito 
dal collega, la ricetta sulla scatola dei 
pelati... E giù appunti, ritagli, fogliet¬ 
ti, scampoli di giornale e brandelli di 
block notes. 

Il terzo cassetto dall’alto, quello 
“delle ricette”, si riempie sempre di 
più; geniali idee scritte da mani diver¬ 
se impallidiscono in pile disordinate, 
foglietti giallini diventano un po’ trop¬ 
po ciancicati, si comincia a non trovare 
più quello di cui si ha bisogno: è il 


momento, perché negarlo, del perso¬ 
nal computer. Mettiamogli il berretto 
da cuoco,e, insieme, gli occhiali da 
segretario pignolo; diventerà il custo¬ 
de geloso e ordinato, bravissimo, della 
preziosa raccolta dei nostri saporitissi¬ 
mi segreti... 

E... se l’abilissima zia dai mille truc¬ 
chi siete proprio voi? Tanto meglio: 
più di chiunque altro avete diritto a un 
signor archivio; e quando arriva il fati¬ 
dico momento in cui bussano alla vo¬ 
stra porta, non occorre più cercare 
penna e occhiali per una frettolosa 
scribacchiata: ci pensa la stampante a 
scrivere, ricetta per ricetta o menù per 
menù, i segreti della vostra tavola. 
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Listato 1-"RICETTE" 


LA RICETTA DEL RAVIOLO APERTO 

Ingredienti per 4 persone: 8 noci di capesante; 240 gr. di code di 
scampi piccole e sgusciate; 200 gr. dì filetto dì rombo; 20 gr. di 
burro; 1 di. di panna; 3 cl. di vino bianco secco; zafferano in 
stami; sale e pepe bianco; 4 lasagne verdi agli spinaci; 30 gr. di 
pasta all’uovo; 4 grandi foglie di prezzemolo. 


Procedimento: stendere sottilmente la pasta all’uovo. Rita¬ 
gliare dalla sfoglia 8 lasagne grandi. Collocare al centro di 4 di 
esse una foglia di prezzemolo. Ricoprire con le restanti e 


*********************** 
***** ***** 

***** RICETTE ***** 
***** ***** 

*********************** 


96 

100 

110 

120 


REM 
REM 
REM 
REM 
REM 

m 

REM 
REM 
REM 

GOTO 100 

GET YN»; IF YN» = CHR» (8) OR YN» = CHR» (21) OR YN» = 
CHR» (34) OR YN» = CHR» (44) OR YN» = CHR» (59) OR 
YN» = CHR» (10) THEN 95 
RETURN 

0NERR GOTO 1820 

TEXT : HOME : CLEAR :D» = CHR» (4) 

DIM B»<20) 


130 F»(l) = "antipasti*:F»<2) = 'primi piatti":F»(3) = "car 
ni':F4(4) = pesce":Ft(5) = ‘contorni e uova':F4(4) = 


140 

150 

160 

170 

180 

190 

200 

210 

220 

230 

240 

250 


240 


■dolci' 

REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 

VTAB 1 : FOR X = 1 T0 80: PRINT '* 

1: PRINT '**»*■; SPC< 72):'****' 

VTAB 3: HTAB 1: PRINT '****'; SPC( 24) 
'INSERIMENTO NUOVE RICETTE';: NORMAL : 
;'****' 

VTAB 4: HTAB 1; PRINT '****'; SPC( 72) 
FOR X = 1 TO 80: PRINT '*';: NEXT X 


****************************** 
***** ***** 

***** menu principale ***** 
***** ***** 

****************************** 


NEXT X: VTAB 2: HTAB 

;: IWERSE : PRINT 
PRINT SPC< 23) 

■****■; VTAB 5: 

Continua 


ripassare le doppie lasagne così ottenute col mattarello o alla 
macchina in modo da fare aderire bene e ottenere il giusto 
spessore (la foglia di prezzemolo sarà allora visibile in traspa¬ 
renza). 

Tagliare a metà le noci di capesante, il rombo a pezzetti. 
Salare e pepare i pesci. In una casseruola sciogliere il burro, 
inserire gli scampi aggiungendo successivamente le capesante 
e la polpa di rombo. Spruzzare col vino bianco, lasciare insa¬ 
porire per un istante, ed estrarre i pesci dalla casseruola. Fare 
ridurre il fondo di cottura quasi fino a zero, aggiungere la 
panna, lo zafferano; fare ridurre ulteriormente, fino ad otte¬ 
nere una salsa semiliquida. 

Cuocere nel frattempo le lasagne in abbondante acqua bol¬ 
lente e salata. Reinserire in casseruola i pesci e l’eventuale 
liquido che nel frattempo potrebbero aver ceduto. Far ripren¬ 
dere il bollore, e disporre la salsa ed i pesci sulle lasagne verdi 
disposte sul fondo dei piatti, ricoprendole con le lasagne in cui 
è impressa la foglia di prezzemolo. 
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Due programmi due 

Si chiamano HELLO e RICET¬ 
TE , e sono due programmi distinti. Il 
motivo dello sdoppiamento è di ordine 
pratico: gestire separatamente le due 
fasi deirinserimento di nuove ricette e 
della consultazione, rendendo più 
consultabili i file. 

Si utilizzerà un dischetto nuovo per 
l’archivio di cucina, inserendo il pro¬ 
gramma di consultazione come pro¬ 
gramma di lancio; il primo dei due, il 
programma di inserimento, è RICET¬ 
TE, il secondo, di consultazione, è 
HELLO. D’altra parte, le opzioni di 


scelta dei menù che di volta in volta 
appariranno sullo schermo permette¬ 
ranno di passare da un programma al¬ 
l’altro, lasciando sempre al personal 
computer il controllo delle operazioni. 

Utilissimi e molto semplici da usare, 
questi due programmi hanno un gran¬ 
dissimo merito: permettono finalmen¬ 
te al computer di mettere il dito tra 
moglie e marito... Scoprendo in lui un 
simpatico aiuto cuoco, la signora, in¬ 
fatti, comprenderà un po’ di più il per¬ 
ché delle lunghe ore di dialogo silen¬ 
zioso (a parte i BEEP) tra il suo con¬ 
sorte e quel diavolo di macchina. E 
sarà pace in famiglia. 


Come funziona 
l’archivio 

L’intero archivio permette di inseri¬ 
re le ricette in 6 sottogruppi, e precisa- 
mente: 1) antipasti; 2) primi piatti; 3) 
carni; 4) pesce; 5) contorni e uova; 6) 
dolci. In ogni sottogruppo le ricette 
vengono identificate con un titolo 
(lungo al massimo 40 caratteri) e ri¬ 
chiamate successivamente con il nu¬ 
mero che apparirà sul video accanto al 
titolo stesso. Per ciascuna ricetta sono 
pt)i previste 5 righe, di 70 caratteri cia¬ 
scuna, per l’elenco degli ingredienti 
necessari alla preparazione, descritta 


270 VTAB 10: HTAB 20: PRIffT ‘Questi sono i comandi 
280 VTAB 12: HTAB 25: INVERSE : PRINT “ 1" ; : N0RMAL : PRINT 
■ Creazione di un nuouo ricettario" 

290 VTAB 14: HTAB 25: INVERSE : PRINT "2";: NORMAL : PRINT 
' Inserimento nuove ricette" 

300 VTAB 16: HTAB 25: INVERSE : PRINT "3";: NORMAL : PRINT 
' Torna al menu' principale" 

310 G0SUB 1760 

320 IF YW < > "1" AND YNt < > "2" ANO YNt < > "3" THEN 
310 

330 IF YNt = "3" THEN HOME : PRINT Dt;"RUN HELLO" 

340 SNt = YNt 

350 VTAB 9: HTAB 1: CALL - 958: HTAB 5: PRINT "Che tipo d 
i ricetta vuoi inserire ?*: PRINT 
360 F0R X = 1 T0 6: HTAB 30: Ihh/ERSE : PRINT X;: NORMAL : PRINT 
" ":F4(X): PRINT : NEXT X 

370 GOSUB 1760: IF VAL (YNt) > 6 OR VAL (YNt) ( 1 THEN 3 
70 

380 VTAB 9: HTAB 1: CALL - 958:NY = VAL (YNt):NYt = YNt 
390 Flt = "ELENCO" + NYt:F2t = "RICETTE" ) NYt: IF SNt = "2" 

THEN 670 
400 REM 

410 REM 

420 REM m************************************* 

430 REM ***** ***** 

440 REM ***** creazione di un nuouo File ***** 

450 REM ***** ***** 

460 REM **************************************** 

470 REM 

480 REM 

490 PRINT "ATTENZIONE 'II Prosequi solo se sei si 

curo che non esista aia'": PRINT : PRINT TAB( 25)"un 
ricettario di '"ìFttNY):"' 

500 PRINT : PRINT TAB( 25)“Se non sei perfettamente sicur 
o e per non rischiare": PRINT : PRINT TAB( 25)"dannos 
e cancellazioni, interrompi l'esecuzione" 

510 PRINT : PRINT TAB( 25)"e controlla le ricette aia' es 

istenti.": PRINT : HTAB 25: INPUT "Vuoi proseguire ? ( 

S/N) ";NSt 

520 VTAB 9: HTAB 1: CALL - 958 

530 IF NSt = ’S" OR NSt = "s" THEN 570 

540 PRINT "Se uuoi creare un ricettario di ' ";Ft(NY):"'," 

550 PRINT : PRINT "accertati che non esistano già' files d 
i nome "jFlt;" e ";F2t:"." 

560 END 

570 Flt = Flt: HTAB IO: PRINT."Il file ";FIt;" conterrà' 1' 
elenco delle ricette di ";Ft(NY)i . 

580 GOSUB 1420: PRINT 

590 Flt = F2t: HTAB 10: PRINT "11 File ";Flt:" conterrà' le 
ricette di ":Ft(NY>;"." 

600 GOSUB 1420 

610 FOR X = 1 T0 1000: NEXT X 

620 VTAB 9: HTAB 1: CALL - 958: GOTO 270 

630 REM 

640 REM 

650 REM *************************************** 

660 REM ***** ***** 

670 REM ***** inserimento nuovi records ***** 

680 REM ***** ***** 

690 REM **********«*«*****<******************** 

700 REM 

710 REM 


720 GOSUB 1540: REM ricerca del file 

730 GOSUB 1710: REM apre il file e legge il numero di ree 

ord contenuti 

740 IF NN = 1 THEN VTAB 7: HTAB 20: PRINT "***»* NOME DE 
LLA NUOVA RICETTA **»**”: PRINT : HTAB 5: PRINT "Bues 
ta sara' la ricetta numero ";M * !:" (":Ft(NY); * ) ." 

750 IF NN = 2 THEN VTAB 7: HTAB 15: PRINT '**«** ELENCO 
INGREDIENTI »****": PRINT : HTAB 5: PRINT "Hai a dispo 
sizione 5 righe per elencare": PRINT TAB( 5);"gl i ing 
redienti della nuova ricetta <":Ft<NY)s") ." 

760 IF hN = 3 THEN VTAB 7: HTAB 15: PRINT "*«*** MODO DI 

ESECUZIONE ****»": PRINT : HTAB 5: PRINT "Hai a disp 

osizione 12 righe per illustrare la preparazione": HTAB 
5: PRINT "della nuova ricetta (" ;Ft(NY);*> ." 

770 PRINT TAB( 5);"Premi (3) per ribattere una riga sbagl 
iata.": PRINT TAB( 5):"Non puoi utilizzare i caratter 
i (,) (:>, Premi (RETURN) per finire." 

780 IF hN = 3 THEN PRINT : PRINT TAB( 5);"Ricorda queste 
avvertenze, premi un tasto per cominciare — > ':: GET 
XXt: PRINT XXt: VTAB 7: HTAB 1: CALL - 958 
790 PRINT : IF hN = 1 THEN HTAB 15 

800 PRINT "*** lungh. riga * : : FOR K = 0 TO LL - 17: PRINT 

"*■;: NEXT K: PRINT ? ": PRINT :VT = PEEK (37) * 1 

810 VTAB VT: IF LL > 40 THEN 880 
820 HTAB 15: CALL - 95B:Bt = "’:YN = 0 
830 GOSUB 95: PRINT YNt:: IF YNt = CHRt (13) THEN 1010 
840 IF YNt = "3" THEN PRINT : VTAB (VT): GOTO 820 
850 Bt = Bt * YNt:YN = YN ♦ 1 : IF YN > = LL - 5 THEN CALL 
- 1052 

860 IF YN ( LL THEN 830 
870 GOTO 1010 
880 YN = 0 

890 FOR ! = 0 TO SS:Bt(I) = "": NEXT I 

900 FOR 1 = 0 TO SS 

910 VTAB VT * I: HTAB 1 : CALL - 958:Y1 = 0:Bt(I) = "" 

920 GOSUB 95: PRINT YNt: 

930 IF YNt = "3" THEN PRINT : GOTO 910 
940 IF YNt = CHRt (13) THEN 1010 
950 Bt(I) = Bt(I) * YNt 

960 YN = YN + 1:Y1 = Y1 ♦ 1 : IF Y1 ) 65 THEN CALL - 1052 

970 IF Y1 ( 70 THEN 920 

980 Bt(l) = Bt(l) ) CHRt (13) 


990 

IF YN ) 695 THEN CALL - 1052 


1000 

PRINT 

: NEXT I 


1010 

Bi(I) = 

^ Bt(I) * CHRt (13) 


1020 

REM 



1030 

REM 



1040 

REM 

*********************************************** 

1050 

*REM 

***** 

**** 

1060 

*REM 

***** scrittura files 

ad accesso diretto *#** 

1070 

*REM 

* 

***** 

**** 

1080 

REM 

*********************************************** 

1090 

*REM 



HOC 

REM 



ino 

VTAB 23: HTAB 5: CALL - 868: 

INPUT "(M)enu' principa 


le - confermi l'inserimento effettuato (S/N) ? —> 


Continua 





Se non volete problemi di memoria, 
meglio far lavorare 3M. 



Prodotti per l’Informatica 
Divisione Sistemi per l'Ufficio 

Sede: Via S. Bovio, 1/3 - 20090 Milano S. Felice - Segrate Tel. 02/75451 
Filiali: Torino Tel. 011/6192192 - Mestre Tel. 041/962255 - Genova Tel. 010/451801 - 
Bologna Tel. 051/557157 - Firenze Tel. 055/355841 - Roma Tel. 06/58421 - Napoli Tel. 081/660266 


I problemi di memoria di 
un'azienda trovano la prima rispo¬ 
sta nella 3M già nel 1951, anno in cui 
la 3M sviluppò il primo nastro ma¬ 
gnetico per computer. 

Questo dato la dice lunga sul 
primato di esperienze tecnologiche 
maturate in questo campo dalla 3M, 
sul patrimonio di qualità e affidabili¬ 
tà della produzione 3M nel settore 
dei supporti magnetici. 

Prendiamo le diskettes, ad 
esempio: omologate dai maggiori 


I DISTRIBUTORI 

AUTORIZZATI IN TUTTA 

I ITALIA 

VEDI PAGINE GIALLE 
ALLA VOCE CENTRI 

I MECCANOGRAFICI 
FORNITURE PER 


costruttori, certificate al 100%, ga¬ 
rantite 5 anni, esportate in tutto il 
mondo, distribuite in Italia attraverso 
una rete capillare di 400 punti ven¬ 
dita. E soprattutto disponibili in una 
gamma completa sia nella misura 
da 8 pollici che in quella da 5 e 1/4, e 
con un esclusivo rivestimento ma¬ 
gnetico che consente un'eccezio¬ 
nale resistenza all’usura e la massi¬ 
ma affidabilità. 3M ha sempre una 
risposta pronta per i vostri 
mi di ufficio. 


E non solo con i prodotti per l'in¬ 
formatica. Ma anche con i sistemi di 
fotocopiatura, microfilmatura, visual 
e di telecomunicazione. 

Perchè 3M lavora offrendo so¬ 
luzioni “ad alta tecnologia” per il vo¬ 
stro ufficio. E per tutti gli uffici. 

3M. SISTEMI 
PER L’UFFICIO 

























1120 IF SS* < > "M" m> SS* < > "S" AND SS» < ) "N" AND 

SS» < ) "m" «FD SS» < ) "s 1 AND SS» < > V THEN 11 

10 

1130 1F SS» = ’N" OR SS» = V THEN 810 

1140 IF SS» = "M" OR SS» = ■!»■ THEN HOME : GOTO 140 

1150 VTAB 23: HTAB 5: CALI - 868: INPUT "(M)enu' principi 
le - (Inserisci ancora . Quale —> - :SS»: IF SS» < > 

•m 1 wd ss» < > ■ i - fwd ss» < > v And ss» < > v 

THEN 1150 

1160 IF LL ) 40 THEN 1230 

1170 PRINT D»;"URITE 'sFI*;",R‘;H + 1 

1180 PRINT Bt:M = M * i 

1190 PRINT D* ; "URITE "jFUj'.RO" 

1200 PRINT M; CHR» (13) 

1210 PRINT D» 

1220 GOTO 1310 

1230 FOR I = 0 TO SS 

1240 PRINT D»;"URITE *;FI»{*,R" ;M MM 

1250 PRINT Bt'l) 

1260 NEXT I 

1270 M = li + SS + 1 

1280 PRINT D»;"URITE ";FI»i‘,R0" 


1290 PRINT Mi CHR» (13) 

1300 PRINT Di 

1310 IF SS» = "I" OR SS» = V THEN 670 
1320 HOME : GOTO 140 
1330 REM 

1340 REM 

1350 REM *********************************************** 

***** 

1360 REM ***** 

***** 

1370 REM ***** apertura nuovo File ad accesso diretto 

***** 

1380 REM ***** 

***** 

1390 REM *********************************************** 

***** 

1400 REM 

1410 REM 

1420 PRINT D»|"0PEN *;FI»:",L80" 

1430 PRINT D»;"DELETE ":FI» 


nou riunì i/* j i/uLtit jri» 

1440 PRINT Di;"OPEN ":Fl»:",L80" 
1450 PRINT D»:"URITE J ;FI»; ,R0" 


Continua 


Listato 2 "HELLO” 


********************** 
***** ***** 

***** HELLO ***** 
***** ***** 

********************** 


10 REM 
20 REM 
30 REM 
40 REM 
50 REM 
60 REM 
70 REM 
80 REM 
90 REM 

100 0NERR GOTO 1190 

110 TEXT : HOME : CLEAR :D» = CHR» (4) 

120 DIM B2»(20): PRINT D4;"PR#3" 

130 F»(l) = "Antipasti":F»(2) = "Primi piatti":F»(3) = "Car 
ni":F»(4) = 'Pesce 1 :F»(5) = "Contorni e uova*:F»(6) = 
"Dolci" 

140 REM 
150 REM 

160 REM ****1************************* 

170 REM ***** ***** 

180 REM ***** menu' principale ***** 

190 REM ***** ***** 

200 REM ****************************** 

210 REM 
220 REM 

230 VTAB 1: FOR X = 1 TO 80: PRINT "*";: NEXT X 
240 UTAB 2: HTAB li PRINT "****’; SPC( 72) :"***»" 

250 VTAB 3: HTAB 1: PRINT "****": SPC( 20);: IIWERSE : PRINT 

■COMPUTER CUISINE 1 ;: NORMAL : PRINT SPC( 
19):■****• 

260 VTAB 4: HTAB 1: PRINT "****"; SPC( 72):"****■ 

270 VTAB 5: FOR X = 1 TO 80: PRINT "*";: NEXT X 
280 VTAB 7: HTAB 5: PRINT "Lista dei manicaretti :"; 

290 FOR X = 1 TO 6: HTAB 30: IMMERSE : PRINT X;: NORtttL : PRINT 

" 1 ;F»(X) : PRINT : NEXT X 

300 VTAB 18: HTAB 25: FOR X = 1 TO 30: PRINT NEXT X: 

PRINT "" 

310 HTAB 25: PRINT "*** ";: IMMERSE : PRINT , 7‘\: NORMAL 
: PRINT " Agqiunqi nuuve ricette" 

320 PRINT : HTAB'25:'PRINT "*** ";: INVERSE : PRINT *8" ; : 

NORMAL : PRINT " Esci dal progr arnia" 

330 VTAB 23: HTAB 1: CALL - 868: HTAB 5: INPUT "Premi la 
tua scelta, e poi (RETURN) — > ‘:YN» 

340 IF YN» < > "1 ! AND YN» < > "2" AND YN» < > "3" (ND 

YMI» < > "4" AND YN» ( > "5" AND YN» < > "6" AND YN» 

< > "7" AND YN» < > "8" THEN 330 
350 IF YN» = "8" THEN HOME : END 

360 IF YN» = "7" THEN PRINT D»;"RUN RICETTE" 

370 FI» = "ELENCO 1 * YN»:F2» = 'RICETTE 1 * YN»:YX = VAL (YN») 
380 REM 


390 REM 

400 REM ************************************ 

410 REM ***** ***** 

420 REM ***** lettura elenco ricette ***** 

430 REM ***** ***** 

440 REM ************************************ 

450 REM 

460 REM 

470 PRINT D»;"0PEN 1 ;F1»;‘,L80" 

480 PRINT D»;’READ 1 ;F1»;",R0" 

490 INPUT M 

500 PRINT D» 

510 R = 0: HOME : VTAB 1: PRINT ■**********"; SPC< 5);F»(YX 
i; SPC( 5); 1 ********** 1 
520 IF RIC» = ’R" THEN 550 

530 VTA8 10: HTAB 10: PRINT "Attualmente sono presenti ";M 
ricette. 1 : PRINT : INPUT "Un tasto per prosequire ( 
<M) per il menu'), poi premi (RETURN) —) *;SN* 

540 IF SN» = "H 1 OR SN» = V THEN PRINT [Xj'CLÒSE 1 : HOME 
: GOTO 280 

550 VTAB 3: CALL - 958:NL = 0 
560 R = R + 1 : IF R > M THEN 640 
570 PRINT Dt;‘READ "[FU; 1 ,R";R 

580 INPUT B» 

590 PRINT D» 

600 HTAB 10: INVERSE : PRINT R;: NORMAL :NL = NL M 
610 HTAB 20: PRINT B»: PRINT : IF NL ( 10 THEN 560 
620 VTAB 23: HTAB 10: PRINT "(SPA2IO) per proseguire : 1 ; : 

GET XX»: IF XX» < > CHR» (32) THEN 620 
630 PRINT XX»: GOTO 550 

640 PRINT D»;"CLOSE" 

650 VTAB 23: HTAB 10: CALL - 868: INPUT "N. ricetta, <M)e 
nu', (R)icette: poi premi (RETURN) —> 1 ;RIC» 

660 IF RIC» = "M 1 ÒR RIC» = V THEN PRINT D»;"CLOSE": HOME 
: GOTO 280 

670 IF RIC» = "R" OR RIC» = "r" THEN HOME : GOTO 420 
680 RIC = VAL (RIC»); IF RIC > M OR RIC ( 1 THEN 650 
690 REM 

700 REM 

710 REM ***************************************** 

720 REM ***** ***** 

730 REM ***** mostea la ricetta prescelta ***** 

740 REM ***** ***** 

750 REM ***************************************** 

760 REM 

770 REM 

780 PRINT D»;"OPEN “;F1» ; 1 ,L80" 

790 PRINT D»;"READ ";F1»;’,R";RIC 

800 INPUT 81» 

810 PRINT D»;"OPEN ":F2»;’,L80" 

820 FOR I = 0 TO 16 

830 PRINT D»;"READ *;F2»;",R";I7 * (RIC - 1) ♦ I + 1 
840 INPUT 824(1) 

850 NEXT 1 
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d’autore 


860 PRINT M;*CL0SE" 

870 HOME : VTAB 1: PRINT ■**********'; 

SPC( 5);F»OX)i SPC(5);'**********■ 

880 VTAB 3: HTAB 30: IfWERSE : PRINT Bl»: NORMAL 

890 VTAB 5: POR I = 0 TO 4: HTAB 5 

900 PRINT B2»<1): NEXT I 

910 VTAB 10: FOR I = 5 TO 16: HTAB 5 

920 PRINT B2»<1): NEXT I 

930 VTAB 23: CALL - 868: HTAB 10: INPUT 'Vuoi stangare (S 
/N) — > *:XX» 

940 1F XX» < ) ’S’ AND XX» < > V AND :XX» < > 'N 1 AND 

XX» < > V THEN 930 

950 IF XX» = "S 1 OR XX» = V THEN HOME : GOSUB 1050 

960 VTAB 23: CALL - B68: HTAB 10: INPUT "<R> per le ricet 

te, <N> per il menu — > ";XX» 

970 IF XX» < > "M" FfiD XX» < > 'm" WD XX» < > "R 1 FND 

XX» ( > V THEN 960 
980 PRINT XX»: PRINT D»;’CL0SE“: HOME 
990 IF XX» = ’N' OR XX» = V THEN 140 
1000 RIC» = ■R": GOTO 420 
1010 REM 
1020 REM 
1030 REM 
1040 REM 
1050 REM 
1060 REM 
1070 REM 
1080 REM 
1090 REM 

1100 PRINT CHR4 (27): CHR» (17) 

1110 PRINT D»;"PRH1* : PRINT : PRINT 
5) :F»(YX> : SPC( 5) ^i******»**’ 

1120 PPM : PRINT : PRINT TAB< 30) ;B1» 

1130 PRINT : PRINT : FOR I = 0 TO 4 : HTAB 5 
NEXT I 

1140 PRINT : PRINT : FOR I = 5 TO 16: HTAB 5: 

: NEXT 1 

1150 PRINT Dis'PRM': PRINT ": HOME : RETURN 
1160 REM ********************************* 

1170 REM ***** segnalazione errore ***** 

1180 REM ********************************* 


**************************** 
***** ***** 

***** routine stampa ***** 
***** ***** 

**************************** 


PRINT ■*»****»***■; SPC( 


1190 ER = PEEK (222):EL = PEEK (219) 
1200 HOME : VTAB 10: PRINT 'ERRORE 
EL: PRINT : END 


PEEK (218) 


"Non ripetizione ma invenzione, non schema facile ma 
ricerca di originali modalità espressive. Non modesta ma 
raffinata, sembra complessa ed è classicamente semplice; 
non risulta di facile comprensione, ma stimola impulsi di 
fantasiosa intellettualità gastronomica". Così viene defini¬ 
ta la cucina di Gualtiero Marchesi. Più che di cucina si 
dovrebbe parlare di arte, riconosciuta dai critici più esi¬ 
genti nota ai buongustai di mezza Europa. Quando si 
parla di Gualtiero Marchesi subito vengono alla mente 
nomi come Escoffier, Ali-Bah, Point, sopra i cui sacri 
testi questo cuoco da molti definito "divino", ma sempre 
gentile e modesto con chiunque l’avvicini, ha affinato la 
iitia arte, dopo lunghi e ripetuti tirocini alla corte dei 
■rateili Jean e Pierre Troisgros, nell’altro grande tempio 
'jima "nouvelie cuisine", a Roanne, in Francia. 

HPR suo ristorante, a Milano, via Bonvesin de la Riva 2, è 
Jkquyitato da palati raffinati: uomini d’affari che non 
BEu}*>no l’occasione, in un viaggio a Milano, di fare una 
fusila* a questo sacrario dell’arte culinaria che è il Risto¬ 
rate di Gualtiero Marchesi, con la erre maiuscola per 
iSrafcgnasia, e poi habitué delle più diverse estrazioni: 
nobiltà, cinema, cultura. 

Due stelle gli ha appuntato sulla porta la guida Miche- 
lin, 18/20 gli hanno attribuito Cault—Pillau, mentre il 
"Time" lo ha elencato tra i 15 ristoranti migliori del mon¬ 
do. 

Ma Gualtiero Marchesi non è solo questo la sua curiosi¬ 
tà, la sua passione, la sua "voglia di fare" non lo lasciano 
tranquillo un momento e così, negli intervalli tra la crea¬ 
zione di un piatto e l’altro, ha "cucinato" una serie di idee 
per raggiungere un pubblico ben più vasto di quello che 
ogni sera si riunisce nel suo Ristorante. Tra queste, l’olio 
ligure, dai sapori molto morbidi e con un vago retrogusto 
di pinoli, e l’aceto di vino rosso, fatto con un taglio di vini 
dell’Oltrepò che testimoniano ancora la loro presenza con 
le vivaci sfumature del profumo e il cui sapore evidenzia 
una struttura equilibrata da ben quattro anni di invec¬ 
chiamento, e permette accostamenti anche a piatti impor¬ 
tanti. Insieme con altre "Idee" di Gualtiero Marchesi (l’a¬ 
ceto di vino bianco, la China, l’Amaro, l’Amaro di noci, il 
Cordiale, il Rosolio) si trovano in vendita nei migliori 
negozi. nOmr 


256 
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APPLICANDO è lieto di offrire ai suoi lettori, nel 
dischetto che contiene il programma "Computer 
cuisine" (in vendita a 30 mila lire), le ricette originali 
che compongono un intero menù di IO piatti studia¬ 
to appositamente da Gualtiero Marchesi. 
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1460 PRINT 0; CHR$ <13) 

1470 PRINT W;*CLOSE" 

1480 RETURN 
1490 REM 

1500 REM ******************************************** 
1510 REM ***** subroutine di ricerca del file ***** 
1520 REM ******************************************** 
1530 REM 

1540 UTAB 7: HTAB li CAIL - 958: UTAB 9 
1550 HTAB 25: PRINT ’***»* ":F$(NY):' *****" 

1540 PRINT : PRINT TABI 10);‘Scegli fra le possibili oper 
azioni di inserimento :' 

1570 PRINT : HTAB 15: 1WERSE : PRINT * 1 * ; : NORfttL : PRINT 
' nome della nuova ricetta" 

1580 PRINT : HTAB 15: IWERSE : PRINT "2";: NORMAL : PRINT 
" inqredienti" 

1590 PRINT : HTAB 15: INVERSE : PRINT "3*:: NORMAL : PRINT 
" modo di esecuzione" 

1400 UTAB 23: HTAB 10: INPUT "Quale —> " ;hM 
1610 NN = VAL <ltf$): IF W < 1 OR W > 3 THEN 1400 
1420 UTAB 9: HTAB 1: CALL -958 
1630 1F MN = 1 THEN LL = 40:FI$ = "ELENCO" ♦ NY$: RETURN 
1640 LL = 70 : FI* = "RICETTE" + NY*: IF MN = 2 THEN SS = 4: 
RETURN 


1450 SS = 11: RETURN 
1640 REM 

1470 REM *****************************»**********«*<*** 
*********** 

1680 REM ***** subroutine di ricerca numero records inse 
riti ***** 

1690 REM *********************************************** 
*********** 

1700 REM 

1710 PRINT Mj'OPEN ";FI«;",L80" 

1720 PRINT M;"READ ";FIt;",R0" 

1730 INPUT M 
1740 PRINT D$ 

1750 RETURN 

1760 VTAB 23: HTAB 20: CALL - 868: INPUT "Quale scegli - 
> ";YN*: RETURN 
1770 REM 

1780 REM ********************************* 

1790 REM ***** segnalazione errore ***** 

1800 REM «il***************************** 

1810 ER = PEEK (222):EL = PEEK (219) * 254 * PEEK <218) 
1820 HOME : VTAB 10: PRINT "ERRORE » ";ER;" alla linea "; 
EL: PRINT : END 


nelle successive 12 righe (sempre di 70 
caratteri). 

Tutto ciò viene effettuato conside¬ 
rando le righe sul video come stringhe 
di caratteri, memorizzate in preceden¬ 
za in due file ad accesso diretto. Un 
primo file contiene l’elenco delle ricet¬ 
te appartenenti a un medesimo grup¬ 
po, e il secondo contiene le relative 
righe con ingredienti ed esecuzione. 

È bene ricordare che durante l’inse¬ 
rimento non si possono utilizzare i ca¬ 
ratteri virgola, punto e virgola, e, na¬ 
turalmente, virgolette. Per correggere 
una riga in cui sia presente un errore, 
va utilizzato il carattere speciale chioc¬ 
ciola, che riporta il cursore all’inizio 
della riga stessa, permettendo di ribat¬ 
tere così in modo esatto. È sufficiente 
poi premere RETURN per terminare 
l’inserimento. 

Programma 
di inserimento 

100-130. Le prime righe del pro¬ 
gramma introducono alcune costanti, 
quali il CTRL-D (per i comandi DOS) 
e l’elenco dei sottogruppi di ricette. 

140-390. Menù principale. Le op¬ 
zioni prevedono (1) la creazione di un 
nuovo archivio (necessaria quando si 
usa il programma per la prima volta), 
(2) l’mserimento di nuove ricette e (3) 
il ritorno al programma HELLO. 

400-620. Quando si sceglie l’opzio¬ 
ne 1 al punto precedente, si suppone 
che non esista già sul dischetto un ar¬ 
chivio di ricette del tipo che si vuole 
creare, altrimenti questo verrebbe 
cancellato. Il programma avverte di 


questo pericolo, ma in caso di dubbio è 
bene interrompere l’esecuzione (ba¬ 
sterà premere N alla richiesta di prose¬ 
guimento) e controllare con un CA- 
TALOG il contenuto del disco su cui si 
sta lavorando. Il programma indica 
quali sono i file che bisogna ricercare. 
D’altronde, una volta create le 6 cop¬ 
pie di file (una per ciascun gruppo di 
ricette) si può eliminare questa opzio¬ 
ne cancellando la riga 280 e modifican¬ 
do così la riga 320: 

320 IF YN$ >< "2" AND YN$>< ”3” 
THEN 310 

630-1010. Quando si sceglie l’opzio¬ 
ne 2, oppure quando si è compiuta fino 
in fondo l’opzione 1, appare sullo 
schermo un altro menù, che propone 
tre possibilità di inserimento, relative 
al titolo, agli ingredienti e al modo di 
esecuzione della medesima ricetta. Le 
tre opzioni vanno eseguite in sequenza 
come vengono presentate, per evitare 
pasticci irreparabili nella memoria, 
ma possono essere interrotte in qual¬ 
siasi momento premendo M; si torna 
in questo modo al menù principale 
(questa soluzione può venire assai co¬ 
moda quando si fanno le ore piccole 
davanti allo schermo e ci si vuole con¬ 
cedere una pausa). 

Programma 
di consultazione 

100-130. Costanti e stringhe alfanu¬ 
meriche. 

140-370. Menù principale. Sono 
presenti 6 opzioni relative alla consul¬ 
tazione dell’archivio memorizzato 
(una per ciascun gruppo di ricette). 


una opzione (7) che permette di trasfe¬ 
rirsi sotto il controllo del programma 
RICETTE, e infine l’opzione (8) che 
interrompe il programma. 

380-680. Quando viene scelta una 
delle prime sei opzioni, il programma 
legge sul file che contiene i nomi delle 
ricette (ADRIx), visualizza l’elenco 
delle medesime e chiede infine di sce¬ 
gliere quella che si vuole consultare 
(oppure rimanda ai menù principale o 
a un riesame dell’elenco). 

690-1000. Quando si sceglie una del¬ 
le ricette presentate dallo schermo, il 
programma torna a leggere (su MAM- 
MAx) le righe relative agli ingredienti 
e al modo di esecuzione, presentando 
l’intera ricetta sul video. La lettura av¬ 
viene su file ad accesso diretto e quindi 
il puntamento è veloce e soprattutto 
indipendente dalla posizione della ri¬ 
cetta in memoria. A questo punto il 
programma (dopo aver eventualmen¬ 
te stampato la ricetta scelta) attende la 
battitura di una M per tornare al menù 
principale, o di una R per visualizzare 
di nuovo l’elenco delle ricette del 
gruppo che si sta analizzando. Natu¬ 
ralmente entrambi i programmi sono 
protetti in ogni loro parte da input in¬ 
desiderati, ed è comunque presente 
una routine di errore che ferma il pro¬ 
gramma segnalando il codice DOS e la 
linea alla quale è avvenuta l’interru¬ 
zione. 

Franco Pcrsuati 


Questo programma è disponibile su di¬ 
schetto. L’elenco, i prezzi e le modalità 
d'ordine di questo e degli altri dischetti 
disponibili sono riportati nella rubrica 
Disk Service. 


* 
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STAMPANTI Epson, 

una scelta prestigiosa, senza compromessi 





FX-1DD 

Con 132 colonne e 160 ca¬ 
ratteri al secondo, la FX-100 
è la stampante ideale per 
data processing e tabula¬ 
ti, specialmente in uffi¬ 
cio grazie anche alla 
possibilità di accettare 
fogli singoli e moduli 
continui di qualsiasi 
formato. La matrice di 
ti 11x9 consente 
fiche e la formazione di una 
sima varietà di tipi di carattere, 

256, definibili anche dall’utente e me¬ 
morizzati nei 3 kbyte di RAM interna. La 
FX-100 non teme la fatica: la testina di 
stampa è garantita per oltre 100 milioni 
di caratteri ed è facilmente sostituibile. 
Inseritori automatici di fogli singoli. 


Epson dunque, senza compromessi. 


Scegliere una 
stampante è facile? 


FX-BD 


Indispensabile nelle applicazioni in 
cui la versatilità e la qualità di stampa 
sono un imperativo. 

Possibilità di creare qualsiasi carat¬ 
tere su una matrice di 11x9 punti. Memo¬ 
ria RAM da 4 Kbyte. 256 tipi di caratteri 
definibili dall’utente. 136 tipi di caratteri 
a corredo. Alta velocità di stampa a 160 
caratteri al secondo su 80 colonne, Ben 
9 modi di stampa grafica punto a punto 
selezionabili sulla stessa riga contem¬ 
poraneamente. 

Inseritori automatici di fogli singoli a sin¬ 
gola e doppia vaschetta. 


C’è una sola regola, pretendere 
sempre il massimo delle prestazioni, 
senza compromessi: materiali e compo¬ 
nenti di prima qualità, disegno elegan¬ 
te, grande affidabilità, robustezza, faci¬ 
lità e flessibilità d’impiego, prezzo ade¬ 
guato e la garanzia di un grande costrut¬ 
tore leader mondiale. 

Così, con Epson, la scelta è facile e 
sicura. 

Epson il più grande costruttore al mon¬ 
do di stampanti vi offre una gamma di 
prodotti prestigiosi che soddisfano ogni 
vostra necessità. Epson, una soluzione 
raffinata, in esclusiva per il vostro com¬ 
puter. 


RX-BD/RX1DD 


Le migliori prestazioni da stampanti, 
semplici, versatili, silenziose e veloci 
con 100 caratteri al secondo. 128 tipi di 
caratteri selezionabili e 11 set intema¬ 
zionali. 80 o 132 colonne. 6 diverse posi- 
bilità grafiche. Tutti i tipi di carta, modu¬ 
lo continuo, foglio singolo. Inseritori au¬ 
tomatici di fogli singoli. 


EPSON 


EPSON, computer e periferiche 
sono prodotti distribuiti, 
assistiti e garantiti 
da SEGI S.p.A. - Milano Via Timavo, 12 



SERVIZI 
GENS ALI PER 
L INFORMATICA 






PER IL TUO APPLE // 


Vi piacciono le regate? O preferite esplorare le caverne dell’Olimpo? Oppure vorreste 
avere sul vostro schermo il fantastico gioco della scimmia che scappa arrampicandosi sulle 
pareti lisce dì un grattacielo? Siete invece tipi riflessivi e vi dilettate di musica? Non 
preoccupatevi, qui c’è sicuramente quello che fa per voi. Per gli amanti di tanti giochi tutti 
insieme è disponibile una raccolta. Per chi, infine, vuole migliorare le proprie capacità di 
programmatore, ecco tutti i trucchi del Basic su dischetto. E a prezzi eccezionali. 



REGATTA. Un gioco entusiasmante che tara 
impazzire marinai esperti e meno esperti di 
qualunque età. Ogni concorrente ha a 
disposizione una barca e un circuito. Poi ci 
sono i venti, gli ostacoli, gli imprevisti... Una 
grafica realistica vi farà volare tra le onde. 
Paddle o Joystick opzionali. Dischetto con 
programma e manuale in elegante 
confezione a sole 40.000 lire 


CAVES OF OLYMPUS. Oltre a una grafica a 
colori ultraprofessionale, questo gioco di 
abilità sfodera suoni ed effetti speciali di 
qualità nettamente superiore. Divertente, 
intrigante e irresistibile. Non richiede né 
paddle né joystick. Dischetto con 
programma e manuale in elegante 
confezione a sole 40.000 lire. 


APE ESCAPE. Una scimmia e fuggita dallo 
zoo e si arrampica sulle finestre di un 
grattacielo. Elicotteri le ronzano attorno e il 
guardiano dello zoo la insegue. Riuscirà a 
raggiungere il tetto e la libertà? Tutto dipende 
da quanto abili siete. Grafica a colori. Non 
richiede né paddle né joystick. Dischetto con 
programma e manuale in elegante 
confezione a sole 40.000 lire. 



MUSIC GAMES. 12 programmi educativi e 
divertenti sul filo delle 7 note. Senza bisogno 
d'altro, il vostro Apple si tramuterà in un 
docile strumento musicale dal quale 
imparare e col quale divertirsi. Sono richieste 
le paddle o il joystick. Dischetto con 
programma e manuale in elegante 
confezioneasole40.000 lire. 


APPLE GAMES. 11 giochi: Flip-Flop, 
Mastermind, Towers, Sherlock's home, 
Attack of thè Zargons, Phaser Practice, 
Acey-Ducey, Big government, Tic-Tac-Toe, 
Qubic, Depth charge. E tre programmi di 
utilità: Shapetable generator, Opening 
ceremonies, Master catalog. Per alcuni 
giochi sono richieste le paddle o il joystick. 
Dischetto con programma e manuale in 
elegante confezione a 50 000 lire. 


BASIC TRICKS FOR THE APPLE. 35 routine 
che renderanno molto più professionali i 
vostri programmi in Basic e che vi sarà 
facilissimo imparare utilizzando il manuale e 
il dischetto offerti in elegante confezione a 
sole 50.000 lire. 


Cognome e nome. 

Via.N. 

Cap.Città .Provincia. 

Scelgo la seguente formula di pagamento: 

□ Allego assegno non trasferibile di lire.intestato a Editronica srl, 

Corso Monforte 39, 20122 Milano 

□ Allego ricevuta di versamento di lire .sul conto corrente postale 

n. 19740208, intestato a Editronica srl, Corso Monforte 39, 20122 Milano 


Sì! Inviatemi subito, senza aggravio di spese 
postali, il o i programmi contrassegnati con 
una crocetta. 

□ REGATTA. 40.000 lire. 

□ CAVES OF OLYMPUS. 40.000 lire. 

□ APE ESCAPE. 40.000 lire. 

□ MUSIC GAMES. 40.000 lire. 

□ APPLE GAMES. 50.000 lire. 

□ BASIC TRICKS FOR THE APPLE. 

50.000 lire. 


Data 


Firma 
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Diesel o benzina? Questo è il rovello. Se poi sarà 
bianca o rossa, a due, quattro o cinque porte, 
metallizzata o meno, si vedrà. Essenziale, 
prioritario, determinante è il motore. Come 
sceglierlo? Chiedendo agli amici, guardando i 
giornali, facendo testa o croce? O, meglio, 
affidandosi al giudizio del computer? 


Ì^DOS 3.3 

-PII! 

ProDOS 

pili 

APPLE 7/e 

pili 

APPLE 7/C 

pm 



Metti 

nel 


un dubbio 
motore 


Q uello che taglia la testa al toro di 
solito è il superbollo: se fai tot 
chilometri all'anno lo ammortizzi, se 
no non conviene. I patiti dell’argo¬ 
mento, comunque, non si accontenta¬ 
no di quest’unico criterio e, senza sco¬ 
raggiarsi, con conteggi tanto comples¬ 
si quanto approssimati, insistono nel 
reclamizzare il motore a gasolio o 
quello a benzina. Nascono così discus¬ 
sioni snervanti tra sostenitori dei due 
opposti partiti: si sottolinea da un lato 


la robustezza, si evidenzia dall’aitro la 
lentezza, si loda la minor tossicità, si 
lamenta la puzza... 

Pregi e difetti da una parte e dall’al¬ 
tra, rischi e convenienze: cosa sce¬ 
gliere? 

Al di là delle simpatie personali ed 
evitando confronti sulle prestazioni, 
un criterio c’è: quello, al quale tutti 
sono in fondo sensibili, dei costi reali. 

A determinare il costo di un'auto¬ 
mobile concorrono molti fattori: prez¬ 


zo di acquisto, bollo e assicurazione, 
tipo di carburante e suo costo, consu¬ 
mi, chilometraggio annuo, tempo di 
vita... È necessario confrontare tutte 
queste variabili, e il loro reciproco in¬ 
fluenzarsi, per poter valutare l’econo¬ 
micità di una vettura rispetto a un’al¬ 
tra e, in particolare, di una'con motore 
diesel rispetto a un’altra con motore a 
benzina. 

Non occorre però aspettare di avere 
un sabato libero per imbarcarsi in un 
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Listato del programma 


10 

REM 

###«##**#**#######*##* 

20 

REM 

* 

DIESEL * 

30 

REM 

* 

0 * 

40 

REM 

* 

BENZINA * 

50 

REM 

* 

(0 COPYRIGHT 1985 « 

60 

REM 

* 

BY APPLICANDO * 

70 

REM 

#*#*«**##»*###*#*##** 

80 

CALL 


■ 936 



mare di conti, basta usare un program¬ 
ma semplice semplice e preciso preci¬ 
so: "diesel o benzina?". 

Come funziona 

Lo scopo del programma è quello di 
confrontare le caratteristiche di due 
automobili e di scegliere la più econo¬ 
mica, quantificando il risparmio che 
essa renderà possibile rispetto alla 
"concorrente". I calcoli, naturalmente, 
sono tutti affidati al computer, che li 
esegue con sorprendente rapidità; chi 
lo interroga deve semplicemente inse¬ 
rire diligentemente la serie di dati che 
via via gli vengono richiesti: costo 
d’acquisto, tassa di circolazione, assi¬ 
curazione eccetera. 

La sentenza del computer, a con¬ 
fronti fatti, è mirabilmente chiara ed 
esaustiva: ti conviene acquistare que¬ 
sta, perché negli anni in cui intendi 
usarla risparmierai tot milioni. Sem¬ 
pre che non riusciate a proporre al 
cervellone due alternative ugualmente 
convenienti! In questo caso apparirà 
una scritta un po’ spazientita ("tutto 
tempo buttato, diesel e benzina sono 
uguali") con cui il computer vi inviterà 
a risparmiargli inutili sforzi matemati¬ 
ci... 


Benito Notari 


Questo programma è disponibile su 
dischetto. L'elenco, i prezzi e le 
modalità d’ordine di questo e degli altri 
dischetti disponibili sono riportati nella 
rubrica Disk Service. 


90 PR1NT ‘.-.-.’ 

100 HTAB 4: FLASH : PRINT •DIESEL";: NORMAL : HTA6 19: PRINT 
-0- ; : FLASH : HTAB 24: PRINT 'B E N 2 INA?*: NORMAL 
110 PRINT 

120 PRINT 1 .-.-.' 

130 VTAB 22: HTAB 5: INVERSE : PRINT *(C) COPYRIGHT 19B5 BY AP 
PLICANDQ": NORMAL 

t/TAB 7: PRINT 1 QUESTO E' UN PROGRAMMA DI CONVENIENZA.': PRINT 
PRINT 1 IL SUO FUNZIONAMENTO E' BASATO, SULLA 1 : PRINT 
SCELTA TRA L'ACQUISTO DI UN'AUTOMOBILE': PRINT 
CON MOTORE DIESEL 0 BENZINA. L'AUTO IL’: PRINT 
CUI COSTO TOTALE SARA' MINIMO RISULTE-': PRINT 
RA' ESSERE L'AUTO PIU' CONVENIENTE." : PRINT : PRINT 
TABI 7);'BATTI <RETURN> PER INIZIARE": PRINT 


PRINT 

PRINT 

PRINT 

PRINT 

PRINT 


VTAB 20: HTAB &: GET A$: PRINT A$ 

1F A4 < > CHR* (13) THEN 210 
IF A$ = CHR* (13) THEN CALL - 936 
PRINT TAB( 9);'A U T 0-D I E S E L' : PRINT 
PRINT '****************************************" 


140 
150 
160 
170 
180 
190 
200 
210 
220 
230 
240 
250 

260 HTAB 3 
270 PRINT 
280 HTAB 3 
290 PRINT 
300 HTAB 3 
310 PRINT 
320 HTAB 3 
330 PRINT 
340 CALL 
350 PRINT 
360 PRINT 
370 HTAB 
380 PRINT 
390 HTAB 3 
400 PRINT 
410 HTAB 3 
420 PRINT 
430 HTAB 3 
440 PRINT 
450 CALL 
460 PRINT 

470 PRINT '****************************************' 

480 HTAB 3: INPUT 'COSTO DEL GASOLIO AL LITRO ';LD 

490 PRINT '-' 

500 HTAB 3: INPUT 'COSTO DELLA BENZINA AL LITRO ";LB 

510 PRINT -- 

520 HTAB 1 
530 PRINT 

540 HTAB 1: INPUT 'QUANTI #fil PENSI DI UTILIZZARLA ? 'jT 


: INPUT "COSTO D'ACQUISTO 

' ;AD 

: INPUT 'TASSA DI CIRCOLAZIONE 

" ;CD 

: INPUT 'ASSICURAZIONE ANNUALE 

' ;DD 

: INPUT 'CONSUMO KM/L 

' ;ED 

- 936 

TAB( 9);'A U T 0-B E N Z INA*: PRINT 
'****«********«****«****«****************' 

1: INPUT 'COSTO D'ACQUISTO " ;AB 

; mini 

: INPUT 'TASSA DI CIRCOLAZIONE 

■;CB 

.* rKINI - 

1: INPUT 'ASSICURAZIONE AfMUALE 

' ;DB 

I: INPUT 'CONSUMO KM/L 

■;EB 

_ £24 

TAB( 10);'DEVI INSERIRE ANCHE': 

PRINT 


PRINT 

INPUT 'QUANTI CHILOMETRI 


PERCORRI IN UN AfNO ? ' ;K 


550 PRINT 
560 TD = <LD / ED # K 

570 TB = (LB / EB * K 

580 IF TD > TB THEN 
590 IF TB ) TD THEN 
600 IF TD = TB THEN 
610 RB = 

620 RD = 


630 

640 

650 

660 

670 

680 

690 

700 

710 

720 

730 

740 

750 

760 

770 

780 

790 

800 

810 

820 


+ CD ♦ DD) * T •» AD 

+ CB + DB) * T + AB 

GOTO 610 
GOTO 620 

CALL - 936: GOTO 740 
INT (TD - TB): CALL - 936: GOTO 630 

INT (TB - TD): CALL - 936: GOTO 690 


PRINT 'FATTI I CONTI TI CONVIENE ACQUISTARE': PRINT 
PRINT 'L'AUTO A BENZ1W, IN QUANTO NEGLI Affli' : PRINT 
PRINT 'DI VITA DELLA TUA AUTO AI COSTI ATTUALI": PRINT 
PRINT 'RISPETTO AL MODELLO A GASOLIO PUOI': PRINT 
PRINT 'RISPARMIARE'; 

PRINT ’ LIRE ':: INVERSE : PRINT RB: NORMAL : GOTO 790 
PRINT 'FATTI I CONTI TI CONVIENE ACQUISTARE': PRINT 
PRINT 'L'AUTO DIESEL, IN QUANTO NEGLI Affli DI': PRINT 
PRINT 'VITA DELLA TUA AUTO RISPETTO AL MODELLO': PRINT 
PRINT "BENZINA PUOI RISPARMIARE'; 

PRINT ' LIRE “; : INVERSE : PRINT RD: NORMAL : GOTO 790 


TAB( 5);*«TUTTO TEMPO BUTTATO I PREZZI*': 
TAB( 5);'«DIESEL E BENZINA SONO UGUALI*': 


PRINT 
PRINT 
PRINT 
PRINT 
GOTO 790 
VTAB 20: HTAB 8 
IF Oi ( 

IF 0» = 

CALL - 936: END 


PRINT 

PRINT 


INPUT 'VUOI CONTINUARE (S/N) ? *;0* 
> 'S' AND W ( ) 'N' THEN 790 
CHRf (83) THEN CALL - 936: GOTO 240 


I 
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CONTABILITÀ... 

IL PROBLEMA 
È SUPERATO 



La cometa ha 

realizzato i 
programmi più 
aggiornati e 
completi di 
contabilità generale e semplificata, 
programmati dai più affermati specia¬ 
listi del settore. 

Telefonateci o scriveteci siamo a 
vostra disposizione per aiutarvi a 
risolvere il vostro problema. 


COMETA s.n.c. 

20154 MILANO 

Via Melzi d’Eril 38 - Tel. 5464468 -3185007-3493785 



















^ Vi piacerebbe avere un repertorio di suoni e rumori 
d’ogni genere? Questo programma usa lo schermo 
grafico Hi - Res per creare effetti sonori o semplici 
melodie. A centinaia. E subito pronte su dischetto. 


DOS 3.3 

*1111 

ProOOS 

*1111 

: APPLE 7/è 

*1111 

APPLE 7/c 

*1111 



suon di 


Apple 


E noto che l’Apple è in grado di 
produrre una gran varietà di suo¬ 
ni e di effetti sonori. Tuttavia se si 
programma in Applesoft, è probabile 
che non si riesca a produrre molto di 
più di semplici bip e ronzìi. Chi deside¬ 
ra ravvivare i propri programmi ag¬ 
giungendovi musica o effetti sonori 
adesso può farlo. Il SINTETIZZA¬ 
TORE DI SUONI permette di creare 
e salvare con facilità suoni che vanno 
da un intero spartito musicale a esplo¬ 
sioni, raffiche di mitragliatrice e perfi¬ 
no canti di uccelli. In altre parole è un 
sistema illimitato di creazione di suo¬ 
ni, e qualsiasi suono creato può essere 
riprodotto prelevandolo da un pro¬ 
gramma in Applesoft con un solo co¬ 
mando. 

Come usare 
il programma 

Il SINTETIZZATORE produce 
una rappresentazione in alta risoluzio¬ 
ne del suono mentre viene creato. In 
questo display la parte alta dello scher¬ 
mo rappresenta i suoni più alti, la par¬ 
te bassa rappresenta i suoni più bassi. 
Quando viene riprodotto, il suono è 
letto da sinistra a destra. Il programma 
ha due modi di creazione dei suoni. Il 
primo serve per fare ogni varietà di 
effetti sonori, il secondo per sintetiz¬ 
zare la musica. 

Per usare il programma basta batte¬ 
re RUN SINTETIZZATORE. Sul 
menù introduttivo scegliete dapprima 
Istruzioni, dato che queste compren¬ 
dono dimostrazioni di alcuni degli ef¬ 
fetti più semplici che è possibile otte¬ 
nere con questo programma. Quando 
viene visualizzato di nuovo il menù 
introduttivo, scegliete Iniziare una 
nuova tavola dei suoni, e alla richiesta 
introducete qualsiasi nome di file vali¬ 
do per la propria Tavola dei suoni. Lo 


schermo Hi-Res si pulirà, e dopo una 
breve pausa apparirà sulla sinistra del¬ 
lo schermo il cursore. Adesso si può 
cominciare a creare un suono. 

Si scoprirà che si può spostare il cur¬ 
sore in su di un dot con il tasto "I", di 


cinque dot con il tasto "U" e di venti¬ 
cinque dot con il tasto "Y". Analoga¬ 
mente si può spostare il cursore in giù 
di uno, cinque e venticinque dot ri¬ 
spettivamente con i tasti "M", "N" e 
"B". Il tasto "S" imposta l’altezza di un 













Figura 1. 

Menù 

principale: 

1 - Prova 

il suono, 

2 - Salva 

il suono, 

3 - Aggiungi 

il suono, 

4 - Grafico 

del suono, 

5 - Cancella 

il suono, 

6 - Cambia 

il suono, 

7 - Fine 



Le frecce destra e sinistra possono es¬ 
sere utilizzate per spostare il cursore a 
destra o a sinistra senza cambiare i dot 
dei singoli suoni esistenti. Il cursore 
può essere spostato anche premendo 
una sola volta uno qualsiasi dei tasti 
dei numeri. Ciascuno di essi rappre¬ 
senta una diversa posizione orizzonta¬ 
le sullo schermo, proporzionale alla 
sua posizione relativa sulla tastiera. 

Le altre opzioni nella creazione e 
nell’editing dei suoni sono SPOSTA¬ 
RE e MENU’. SPOSTARE sarà spie¬ 
gata più avanti. Premendo RETURN 
si ottiene il menù principale. 

Le opzioni del menù 



singolo suono e fa avanzare il cursore 
di un dot verso destra. Volendo, la 
posizione verticale del cursore può es¬ 
sere controllata con una paddle o con 
un joystick, e usando la paddle il pul¬ 
sante svolge la funzione del tasto "S". 


Questa scelta può essere fatta da me¬ 
nù. 

Premendo la barra spaziatrice si fa 
avanzare il cursore e non si ha più 
alcun dot, e la conseguenza è una pau¬ 
sa quando il suono viene riprodotto. 


Il menù principale ha sette opzioni, 
come mostra la figura 1 . La prima di 
esse, PROVARE IL SUONO, per¬ 
mette di sentire il suono che si è pro¬ 
gettato. Nell’ambito di questa opzione 
si possono scegliere l’altezza totale del 
suono, il numero delle ripetizioni e la 
lunghezza di ciascun suono singolo. 
Ritoccando questi parametri, uno 
schema sonoro può essere suonato in 
centinaia di modi diversi. Se siete sod¬ 
disfatti del suono, scrivete l’istruzione 
CALL che è visualizzata a questo pun¬ 
to (figura 2); questa è l’istruzione che 
si userà per richiamare il suono dall’in¬ 
terno di un programma in Applesoft. 
Poi tornate al menù e usate l’opzione 
SALVARE IL SUONO, che salverà 
l’intera tavola dei suoni quale è ades¬ 
so, con il nome di file specificato pri¬ 
ma. 

Se non siete del tutto soddisfatti, 
potete CANCELLARE IL SUONO 
pulendo lo schermo in modo che si 
possa cominciare da capo. Questa op¬ 
zione, però, non cancella il file su di¬ 
schetto se lo si è salvato. Si può anche 
usare l’opzione AGGIUNGERE AL 
SUONO, che fa tornare alla creazione 
e all’editing del suono. 

Le altre possibilità offerte dal menù 
sono VISUALIZZA SUONO 
CREATO IN PRECEDENZA, FI¬ 
NE e CAMBIARE MODO. L’opzio¬ 
ne VISUALIZZA permette di richia¬ 
mare ed esaminare qualsiasi altro suo¬ 
no della propria tavola dei suoni. Se 
per esempio abbiamo nove suoni nella 
tavola, questo permette per ognuno di 
essi di aggiungere, cambiare, provare 
o cancellare, e di risalvare poi la tavola 
se si vuol rendere permanente una 
qualsiasi modifica. 

FINE permette di lasciare il pro¬ 
gramma. Dopo averlo fatto si può, se 
si vuole, eseguire nuovamente il pro¬ 
gramma per lavorare a una tavola dei 
suoni o per cominciarne una nuova. 






CAMBIARE MODO presenta due 
opzioni. Una permette di scegliere fra 
l’introduzione da tastiera e l’introdu¬ 
zione da paddle per fissare l’altezza 
del suono. L’altra permette di sceglie¬ 
re fra sintesi del suono e sintesi musi¬ 
cale. 

Sintesi musicale 

Nel modo sintesi musicale si note¬ 
ranno certi cambiamenti nello sposta¬ 
mento verticale del cursore. In questo 
modo invece di avere l’intero arco del¬ 
le altezze del suono si è limitati alle 
quattordici note musicali specifiche vi¬ 
sibili nella figura 3. 

Sullo schermo Hi—Res viene forni¬ 
to un pentagramma perché si possano 
distinguere le note. Per usare questo 
modo con la massima efficacia è bene 


avere a portata di mano un semplice 
foglio di musica. Si osservi che ci sono 
note sia sulle righe del pentagramma 
sia fra le righe. Si scoprirà che il curso¬ 
re avrà una posizione verticale corri¬ 
spondente a ciascuna di queste note. 
Per amor di chiarezza e di facilità d’u¬ 
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0300- 

20 

4C 

E7 

86 

06 

20 

4C 

E7 

0308- 

86 

07 

20 

4C 

E7 

86 

08 

20 

0310- 

4C 

E7 

86 

0? 

AO 

67 

88 

C8 

0318- 

C6 

06 

DO 

FB 

8C 

24 

03 

8C 

0320- 

3F 

03 

AE 

00 

66 

86 

1C 

A0 

0328- 

00 

88 

88 

88 

C6 

07 

DO 

F9 

0330- 

8C 

61 

03 

A0 

01 

A6 

1C 

86 

0333- 

1B 

A5 

0? 

85 

1A 

BE 

00 

66 

0340- 

E8 

CA 

F0 

18 

AD 

30 

CO 

4C 

0348- 

4A 

03 

4C 

4D 

03 

4C 

50 

03 

0350- 

4C 

53 

03 

4C 

56 

03 

4C 

59 

0358- 

03 

4C 

5C 

03 

4C 

5F 

03 

CA 

0360- 

00 

F7 

C6 

1A 

DO 

D7 

C8 

C6 

0368- 

1B 

00 

CE 

C6 

08 

DO 

C4 

60 


so questo modo non comprende i die¬ 
sis e i bemolle. Mettendo i dot dei 
singoli suoni nelle stesse posizioni che 
hanno le note della melodia sullo spar¬ 
tito si potrà duplicare la musica. Si 
deve però tener presente che data la 
maniera in cui funziona il Lettore di 
suoni, le note alte suonano più veloce¬ 
mente delle note basse. 

In pratica il suono del do più alto è 
circa tre volte più veloce di quello del 
re più basso. Per compensare questo 
fatto si devono fare le linee di nota per 
le note alte più lunghe di quelle per le 
note basse. Per le note di lunghezza 
media la figura 3 suggerisce il numero 
dei dot di suono singolo da usare per 
ciascuna nota (cioè nove dot di suono 
singolo per un do alto). Si ricordi che 
in musica non è previsto che le note 
abbiano tutte la stessa durata, e quindi 


Listato 1: LETTORE. SUONO 


SOURCE FILE: 
0000 : 

0000 
0000 


LETTORE SUONO 


0000 

0000 

0000 

0000 


l ****»***«*»»********«»»»***»»*» 

2 * 

LETTORE.SUONO 

* 

3 * 

BY JAMES R. GESCHWENDER 

X 

4 * 

COPYRIGHT (C) 1985 

* 

5 * 

BY APPLICANDO 4 

X 

4 * 

MICRQSPARC, INC. 
ASSEMBLER: DOS TOOL KIT 

X 

7 * 

X 


NEXT 


8 »*»******»***»»»***»*»***»***»» 
0BJECT FILE NANE IS LETTORE.SUONO.OBJ 


0300: 

9 

0RG 

*0300 

0004: 

10 SNUM 

EQU 

*04 

0007: 

11 OPITCH 

EQU 

*07 

0008: 

12 REP 

EQU 

*08 

0009: 

13 TLEN 

EQU 

*09 

001C: 

14 TNLM 

EQU 

*1C 

001B: 

15 TNUM2 

EQU 

*18 

001A: 

14 TLEN2 

EQU 

*1A 

FF00: 

17 STSOUND EQU 

*FF00 

E74C: 

18 COMBYTE EQU 

*E?4C 

C030: 

19 SPKR 

EQU 

*C030 


0300: 

0300: 


limAZZUtt IL NUMERO OEL SUONO 


0300:20 

4C E7 

22 

JSR 

COMBYTE 

0303:84 

06 

23 

STX 

SNUM 


0305: 

0305:20 « E7 
0308:30 07 
030A : 

030A:20 4C E7 
0300:86 08 
030F: 

030F:20 4C E7 
0312:84 09 
0314: 

0314: 

0314: 

0314:A0 67 
0316:88 
0317:08 
0318:04 04 
031A:D0 FB 
0310: 

0310:80 24 03 
031F:8C 3F 03 
0322: 

0322.-AE 00 FF 
0325:86 10 
0327: 


24 * 1MMAGA2Z1NA IL SUONO PIU' ACUTO 

25 JSR COMBYTE 

26 STX OPITCH 

27 * IRAGAZZINA IL NUMERO DELLE RIPETIZIONI 

28 JSR COMBYTE 

29 STX REP 

- 30 » 1 RAGAZZINA LA LUNGHEZZA DI CIASCUN TONO 


31 

JSR 

COMBYTE 

32 

STX 

TLEN 

33 « 

CALCOLA IL 

BYTE ALTO DELL 

34 * 

INDIRIZZO 

DI PARTENZA 

35 * 

DEL SUCNO 


34 

LDY 

tt*67 

37 

DEY 


38 INCADD 1NY 


39 

DEC 

SNUM 

40 

BNE 

INCADD 


41 * CORREGGE IMMAGAZZINAMENTO SUONO 

42 STY *0324 

43 STY 1033F 

44 * RICEVE LA LUNGHEZZA DEL SUONO DAL FILE SUONO 

45 LDX STSQUND 

46 STX TNUM 

47 * CALCOLA E CORREGGE IL 'SALTO' 


0327: 

48 * IN BASE AL MALORE DEL 

0327: 

49 « TONO 

PIU' ALTO 

0327:A0 00 

50 

LDY #*00 

0329:88 

51 CHBR 

DEY 

032A:88 

52 

DEY 

032B:88 

53 

DEY 

032C:C4 07 

54 

DEC OPITCH 

032E: DO F9 

55 

BNE CHBR 

0330:8C 61 03 

54 

STY *0361 

0333: 

57 * 


0333: 

58 * LOOP 

SUONO 

0333: 

59 * 


0333:A0 01 

60 REPEAT 

LDY #*01 

0335:A4 1C 

61 

LDX TNUM 

0337:84 1B 

62 

STX TNUM2 

0339:A5 09 

43 NEXTPN 

LDA TLEN 

033B: 85 1A 

64 

STA TLEN2 

033D: 

65 « CARICA IN X UN NUMERO DEL TONO 

033D: 

66 ♦ DAL FILE SUONO 

033D:BE 00 FF 

67 SAMEPN 

LDX STSOUND,Y 

0340 :E8 

48 

1NX 

0341:CA 

69 

DEX 

0342: 

70 * SE IL DEL T0M0=0 OMETTO IL CLICK 

0342 : F0 1B 

71 

BEQ DECPIT 

0344: 

72 * CLICK’ALTOPARLANTE 

0344:AD 30 CO 

73 

LDA SPKR 

0347: 

74 * PAUSA TRA I CLICK 

0347: 

75 * (PAUSA LINGA= TONO BASSO) 

0347:4C 4A 03 

76 

JMP J! 

034A:4C 4D 03 

77 J1 

JMP J2 

034D:4C 50 03 

78 J2 

JMP J3 

0350:4C 53 03 

79 J3 

JMP J4 

0353:4C 56 03 

80 J4 

JMP- J5 

0356:4C 59 03 

81 J5 

JMP J6 

0359:4C 5C 03 

82 J6 

JMP J7 

035C:4C 5F 03 

83 J7 

JMP DECPIT 

035F:CA 

84 DECPIT 

DEX 

0340: 

85 * SE XOO, PAUSA CONTINUA 

0360:DO FE 

86 BRANCH 

BNE BRANCH 

0362:C4 1A 

87 

DEC TLEN2 

0364: 

88 * SE TLEN2O0. STESSO NUMERO SI TONO 

0344:DO D7 

89 

BNE SAMEPN 

0366 :C8 

90 

INY 

0367:C4 1B 

91 

DEC TNUM2 

0369: 

92 * SE TNUM2O0, NUMERO DI TONO SUCCESSIVO 

0349:DO CE 

93 

BNE NEXTPN 

034B:C4 08 

94 

DEC REP 

034D: 

95 * SE REPOO, RIPETE IL SUONO 

A36D:D0 C4 

96 

BNE REPEAT 

034F:6O" 

97 

RTS 


*** SUCCESSFUL ASSEMBLY: NO ERRORS 
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Figura 2. 
Parametri 
del suono: 
Altezza max 
(1-9)? 3. 
Numero 
ripetizioni 
(1-255)? 15. 
Lunghezza 
di ogni nota 
(1-255)? 1. 
Cali 

768,3,2,15,1. 




Figura 3. 
Grafico 
delle note 
e loro 
lunghezza. 


Figura 4. 
Grafico 
del suono 
di una 
pistola 
laser. 


N 
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non sarà il caso di usare questi valori 
per tutte le note. Tenendo presente 
questo fatto si potrà copiare diretta- 
mente la musica nella tavola dei suoni. 
Per un brano lungo si può, volendo, 
continuare su un’altra videata. Tutte 
le opzioni possono essere usate nel 
modo di sintesi musicale nella stessa 
maniera in cui sono state usate nel mo¬ 
do di sintesi del suono. 

L’opzione 
di spostamento 

C’è un’altra caratteristica di editing 
che è particolarmente utile nella sinte¬ 
si musicale, SPOSTARE. Per esem¬ 
pio, che cosa fare se si è introdotto un 
intero brano musicale, e provandolo si 
scopre che si è saltata una nota alll’ini- 
zio? A questo tipo di problema può 
porre rimedio l’opzione SPOSTARE. 
Non è un’opzione del menù. Vi si può 
accedere durante la creazione e l’edi¬ 
ting del suono. Usando i tasti dei nu¬ 
meri e delle frecce spostate il cursore 
sulla posizione orizzontale della nota 
mancante e premete ESC. A questo 
punto SPOSTARE permette di muo¬ 
vere più a destra tutti i dot che si trova¬ 
no alla destra del cursore, in modo che 
si possa inserire la nota mancante. Se 
si fosse aggiunta inavvertitamente una 
nota in eccesso si potrebbe usare SPO¬ 
STARE per muovere, in questo caso, 
verso sinistra gli stessi dot, oltre la no¬ 
ta sbagliata. SPOSTARE può essere 
usato anche se si vuole abbreviare o 
allungare una nota. 

Dopo aver fatto una qualunque cor¬ 
rezione, tornate al menù e provate 
nuovamente il suono. Osservate che il 
cursore è considerato dal LETTORE 
SUONO quale contrassegno di fine 
suono. Così, se quando si torna al me¬ 
nù si lascia il cursore nel mezzo del 
suono, si sentirà soltanto metà del suo¬ 
no quando lo si proverà. A questo si 
rimedia facilmente scegliendo l’opzio¬ 
ne 3 (AGGIUNGERE AL SUONO) 
e spostando il cursore alla fine del suo¬ 
no. 

Il salvataggio del suono permette di 
andare avanti e di lavorare al suono 
successivo da mettere nella tavola. 
Una tavola può contenere un massimo 
di 46 suoni, ognuno dei quali può esse¬ 
re suonato in centinaia di maniere di¬ 
verse. 

Gestione dell’errore 

Il programma è congegnato in modo 
che sia "amichevole per l’utente". Tut¬ 
te le opzioni di menù irreversibili ri¬ 


chiedono la verifica prima di essere 
effettuate. L’introduzione di uno 
SHIFT 0 permette di uscire dall’opzio¬ 
ne SPOSTARE. Inoltre sono general¬ 
mente ignorate le introduzioni illegali 
di tutti i tipi. 


Impiego 

dei suoni creati 

Dopo aver creato e salvato una ta¬ 
vola dei suoni li si può adoperare in 
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uno dei propri programmi in Apple¬ 
soft. Per farlo basta includere nel pro¬ 
prio programma le linee seguenti: 

BLOAD LETTORE SUONO 

e, 

BLOAD filesuoni 


Si può poi eseguire qualsiasi suono 
di quelli compresi nel proprio file dei 
suoni con il comando CALL registrato 
durante la prova del suono (per esem¬ 
pio CALL 768,1,3,5,10). 


La forma generale del comando è: 


CALL 768,n,p,r,l 


dove n è il numero del suono nella 
tavola e deve essere compreso fra 1 e 
46; p è l’altezza complessiva del suono 
e deve essere compreso fra 1 e 9; r è il 
numero delle ripetizioni e 1 è la lun¬ 
ghezza di ciascun suono singolo: en¬ 
trambi devono essere compresi fra 1 e 
255. Le figure da 4 a 7 mostrano sol¬ 
tanto alcuni dei suoni che si possono 


creare (e i loro parametri). Questi suo¬ 
ni, con altri dieci, sono compresi nel 
dischetto che potete richiedere utiliz¬ 
zando il tagliando pubblicato nel Disk 
Service. 

Introduzione 
del programma 

Il programma è composto di due 
parti, il lettore di suono in linguaggio 
macchina e il programma principale in 


Listato 2: SINTETIZZATORE 


10 REM ****»«»**»*»**»***»**»***» 

20 REM » SINTETIZZATORE » 

30 REM * DI JAMES R. BESCHUENDER * 

« REM * COPYRIGHT (0 1984 * 

50 REM * BY APPLICANDO A * 

60 REM * MICR0SPARC, INC. * 

70 REM *»*»**»**»*«******»»»***»** 

30 REM INIZIALIZZAZIONE ** GLI UTENTI PR0D0S GUARDINO LA 

LINEA 1840 

IF PEEK <104) = 64 THEN 120 
POKE 103,1 : POKE 104,64: P0KE 16384,0 
PRINT CHRt (4);“RUN"SINTETIZZATORE" 

LOMEM: 37376 

DIM Q(14> ,Y(6).Mt<2),IÌ(2):Dt = CHRf (4) 

PRINT DA: BLOAD LETTORE.SUONI’ 

REM DATI PER LE NOTE MUSICALI 
F0R N = 0 T0 14: READ Q(N): NEXT : DATA 73,77,86,96,1 
08,116.128,144,152.171.192,213.230.254,0 
REM DATI PER LE RIGHE DELLA SCALA 
FOR N = 0 TO 6: READ Y<N): NEXT : DATA 48,54,65,77,89 
,107,128 

REM DATI PER LA TAVOLA DELLE FIGURE 
FOR N = 912 T0 924: READ A: POKE N,A: NEXT : POKE 232, 
144: POKE 233,3: DATA 2,0,6,0^0,4,0,172,30,7,32,0 


90 
100 
110 
120 
130 
140 
150 
160 

170 
180 

190 
200 

ili; rurvc ioo.oì wiim c ,u , o ,u , o ,u , i ,u , 1< l . ou , t . jì , u 

210 Z = 12.5:M = 1:1 = liPITCH = 125:SNUM = 1 :NUM = i:STADD 
= 26368: TEXT : HOME : SCALE= 1: R0T= 0 
220 Mt(l) = “SINTESI SUONO':MÌ(2) = “SINTESI MUSICA* 

230 !t<l> = “TASTIERA - : 1^(2) = “PADDLE 1 

240 HTA8 8: INVERSE : PRINT 'SINTETIZZATORE DI SUONI': VTAB 

22: PRINT “(01985 BY APPLICANDO 4 M1CR0SPARC. INC, - : N0RMAL 
250 VTAB 7: HTAB 7: PRINT “Il CARICARE TAVOLA DEr: HTAB 1 
0: PRINT 'SUONI ESISTENTE' 

260 PRINT : HTAB 7: PRINT '2) CREARE UNA NUOVA TAVOLA' 

270 PRINT : HTAB 7: PRINT *3) ISTRUZIONI “: 

280 GET A$:X = VAL (A*): IF X < 1 OR X > 3 THEN 250 
290 HOME : 0N X GOTO 1820,300.1930 
300 PRINT 'BATTI IL NOME DELLA NUOVA TAVOLA ': INPUT MME4 
: 0NERR GOTO 2650 

310 IF VAL (NANE*) > 0 OR LEN (NAMEt) > 15 THEN PRINT ' 

NOME DI FILE NON VALIDO. PROVA DI NUOVO': GOTO 300 
320 PRINT Dt'BSAVE':NAME$;’,A'jSTADD:',L1': POKE 216,0 
330 REM PULISCE IL VIDEO PER IL SUONO SEGUENTE 
340 HGR : HC0L0R= 3: HPLOT 0,0 TO 279,0 T0 279,159 TO 0,15 
9 TO 0,0 

350 G0SUB 1560:TNUM = 1 

360 FOR N = 0 TO 255: POKE STADD + SNUM * 256 - 256 4 N.0: 

NEXT : REM IN CASO DI ERRORE, VEDERE LA LINEA 1860 
370 HOME : VTAB 21: PRINT 'RETURN PER IL MENU"; 

380 HTAB 27: 1WERSE : PRINT “SUONO N. “;SNUM; NORMAL 
390 IF I = 1 THEN PRINT 'TASTI Y-U-I = SU, B-N-M = GIU', 

S = DOT': GOTO 410 

400 PRINT 'PADDLE E PULSANTE = ALTEZZA DEL SUONO' 

410 PRINT 'BARRA SPAZIO = PAUSA": 

420 HTAB 26: PRINT 'ESC = CAMBIARE' 

430 PRINT 'TASTI 0-9 E FRECCE MUOVONO IL CURSORE'; 

440 REM LOOP PRINCIPALE DI CREAZIONE DEI SUONI 

450 IF I = 1 THEN 580 

460 REM INTRODUZIONE DA PADDLE 

470 IF M = 1 THEN 510 

480 N = INT (( PDL (!) * 21.23) / 21.24):PITCH = 0(N> 

490 HC0L0R= (N < 1): HPLOT 10,Y(0) T0 269,Y(0) 

500 HC0LOR= (N < 3): HPLOT ÌO.Y(I) T0 269,Y(l): GOTO 520 


510 PITCH = PDL (1) ♦ 1 : IF PITCH ) 255 THEN PITCH = 255 
520 CX = Z + TNUMìCY = Z 4 PITCH / 2 
530 XDRAU 2 AT CX.CY: HC0L0R= 0 

540 X = PEEK ( - 16384): IF X > 12? THEN POKE - 16368,0: 

GOTO 890 

550 X = PEEK ( - 16286): IF X > 127 THEN 620 

560 XDRAU 2 AT CX.CY: GOTO 470 

570 REM INTRODUZIONE DA TASTIERA 

580 CX = Z + TNUM:CY = Z * PITCH / 2: XDRAU 2 AT CX.CY 

590 X = PEEK ( - 16384): IF X ) 127 THEN POKE - 16368,0: 

GOTO 720 
600 GOTO 590 

610 REM RILEVAMENTO PRESSIONE PULSANTE 

620 XDRAU 2 AT CX.CY 

630 A = STADD 4 SNUM * 256 4 TNLM - 256 

640 HPLOT CX, PEEK (A) / 2 * Z 

650 POKE A .PITCH : POKE A - TNUM,TNUM 

660 TNUM = TNUM 4 l - (TNUM > 254) 

670 XDRAU 1 AT CX,CY 

680 IF PEEK ( - 16286) < 128 OR 1 = 1 THEN 450 
690 GOTO 680 

700 REM RILEVAMENTOMENTO PRESSIONE TASTO 

710 REM INTRODUZIONE DA TASTIERA 

720 IF X < 193 THEN 890 

730 IF X = 211 THEN 620 

740 XDRAU 2 AT CX,CY 

750 X = - 50 * <X = 217) - 10 « (X = 213) - 2 » (X = 201) 4 
50 * (X = 194) 4 10 * (X = 206) 4 2 * (X = 205) 

760 IF M = 2 THEN 800 

770 PITCH = PITCH 4 X: IF PITCH < 1 THEN PITCH = 1 
780 IF PITCH > 255 THEN PITCH = 255 
790 GOTO 450 

800 FOR N = 0 TO 13: IF PITCH ) 8(N) THEN NEXT 
810 X = SGN (X) * INT ( ABS (X) * .4) 

820 N = N 4 X: IF N < 0 THEN N = 0 

830 IF N > 13 THEN N = 13 

840 PITCH = fi(N) 

850 HC0L0R= (N < 1): HPLOT 10,Y(0) T0 269,Y(0) 

860 HCOL0R= (N < 3): HPLOT 10,Y(1) TO 269,YU) 

870 HCOLOfc 0: GOTO 450 

880 REM INTRODUZIONE DA PADDLE E TASTIERA 

890 XDRAU 2 AT CX.CY 

900 X = X - 128: IF X = 21 THEN 990 

910 IF X = 32 THEN 970 

920 IF X > 47 AND X < 58 THEN 1020 

930 IF X = 8 THEN 1030 

940 IF X = 27 THEN GOSUB 1610: GOSUB 1300 

950 IF X = 13 THEN 1060 

960 GOTO 450 

970 A = STADD 4 SNUM * 256 - 256 4 TNUM 
980 HPLOT CX, PEEK (A) / 2 4 Z: POKE A,0 
990 POKE STADD 4 SNLN * 256 - 256,TNUM 
1000 TNUM = TNUM 4 1 - (TNUM > 254) 

1010 GOTO 450 

1020 X = X - 49 4 10 » (X = 48):TNUM = INT (X * 28.3): GOTO 
990 

1030 IF TNLM < 2 THEN 450 
1040 TNUM = TNUM - 2: GOTO 990 
1050 REM MENU' PRINCIPALE 

1060 HC0L0R= 3: HPLOT CX,4 TO CX,9; HPLOT CX,142 TO CX.147 

1070 HOME : VTAB 21: PRINT 'DPR0VA IL SUONO'; : HTAB 21: PRINT 
■5)CANCELLA IL SUONO 

1080 PRINT '2)SALVA IL SUONO':: HTAB 21: PRINT '6)CAMBIA I 
L MODO" 

Continua 
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Sei proprio sicuro che il tuo computer 
sia sempre al sicuro? 

Siete certi di aver messo al riparo il vostro computer dai più comuni rischi 
e incidenti che possono capitargli? Rispondete sinceramente 
a queste 7 domande, sia che abbiate già sottoscritto una polizza assicurativa, 

sia che ancora non l'abbiate fatto. 





Sempre più compatti e proprio per questo 
sempre più portatili isi pensi all'Apple //c). i 
personal si trasportano da casa all'ufficio, e 
viceversa, con estrema facilita. E se durante il 
tragitto si ha un incidente? Pagate voi? osi uno 




Andate al mare, In montagna, a casa di un 
amico e vi fermate lungo il tragitto per una 
commissione, un ladro vi ruha il computer dal 
portabagagli Pagate voi? u Si uno 



Partite per una vacanza e decidete di portare 
con voi il vostro personal. Andate in 
alPergo, in una casa in affitto o nella villa 
di vostro fratello, e succede qualcosa al vostro 
computer. Pagate voi? n Si No 




Siete nel bel mezzo di un applicazione 
complicata. Non volete interrompervi ma 
nemmeno rinunciare a un whisky on thè rocks 
o ai caffè. Ahimè, il liquido finisce sulla 
tastiera mandando in cortocircuito il 
computer. Pagate voi? □ Si □ No 



Vostro figlio si avvicina al computer senza 
essere visto e comincia a picchiarci sopra con 
un oggetto piu duro del vostro computer. 
Pagate voi? usia no 




I Se un corto circuito o uno sbalzo di tensione 
danneggia il computer, pagate voi? usi uno 


Se qualche vostro amico o una vostra 
impiegata si fa male maneggiando il vostro 
personal, pagate voi? □ Sì □ No 


RISPOSTE 

7 No. il vostro computer è davvero al sicu¬ 
ro. Bravi. 

6 No e 1 Sì. Valutate bene se II caso In cui 
avete risposto si ha scarse possibilità di 
verificarsi. Potrebbe valere la pena di ri¬ 
schiare e di lasciare le cose come stanno 
Da 2 a 7 Sì. Affrettatevi a leggere II box qui 
sotto, perché il vostro computer non è 
affatto al sicuro, Il che potrebbe causarvi 
un sacco di fastidi e farvi perdere un muc¬ 
chio di soldi. 


ìfyg e applicando 

vi mettono al sicuro 

Sicuramente sarete convinti che esista già da tempo una 
polizza per assicurare II personal computer Non è cosi 
Finora tutte le compagnie di assicurazione nanno creato 
polizze nate per garantire i grossi centri di elaborazione 
dati, e solo In seguito hanno adattato queste polizze alle 
esigenze di coloro che vogliono assicurare il proprio perso 
nal Ma una polizza adattata non può certo paragonarsi a 
una polizza nata apposta per soddisfare le esigenze del 
possessore di un personal computer. Applicando, in colla¬ 
borazione con la Ras, una delle più importanti compagnie di 
assicurazioni Italiane, ha studiato a fondo il problema E 
nata cosi la Polizza Applicando, la prima e, per il momento, 
unica assicurazione che copra tutti I rischi relativi al posses¬ 
so e all uso di un personal e delle sue periferiche (stampan¬ 
ti drive, vldeo.ecc) Applicando è orgogliosa di presentarla 
in anteprima ai suol lettori e di offrire loro la possibilità di 
sottoscriverla nella maniera più semplice Basta leggere 
attentamente le condizioni pubblicate alla pagina seguen 
te compilare II tagliando e spedirlo a Editronica srl, Polizza 
Applicando, Corso Monforte 39, 20122 Milano Avrete cosi 
risolto, per sempre, tutti i vostri problemi 































Condizioni generali di assicurazione. 


1) Premessa 

a) l'adesione alla presente polizza è riservata ai proprie¬ 
tari di un Personal Computer il cui valore stabilito 
come alla Condizione 6) sia superiore a L. 2.500.000 
IVA compresa; 

b) l'adesione alla presente polizza da parte dei proprie¬ 
tari di personal Computer avverrà a mezzo invio di 
apposita cartolina con il relativo importo di premio, 

c) l'intestatario della cartolina sarà considerato a tutti gli 
effetti come l'Assicurato; 

d) la garanzia sarà operante dalle ore 24 del giorno di 
spedizione della cartolina, risultante dal timbro posta¬ 
le. La copertura avrà durata un anno, sempreché la 
data di inizio della garanzia sia compresa nel periodo 
di validità della convenzione; 

GARANZIE PRESTATE E CONDIZIONI DI 
ASSICURAZIONE 

2) Sez. I - Danni materiali 

Derivanti da. 

a) incendio, opera di spegnimento e salvataggio, fulmi¬ 
ne, esplosione, scoppio, implosione; 

b) acqua e liquidi in genere, inondazione, alluvione, 
trombe, uragani, gelo, ghiaccio, neve, grandine, va¬ 
langa. caduta di massi e altri simili eventi; 

c) superamento del muro del suono, caduta di aeromo¬ 
bili o cose da essi trasportate; 

d) corto circuito, variazione di corrente, sovratensione 
arco voltaico, deficienze di isolamento, effetti di elet¬ 
tricità statica, induzione; 

e) imperizia, negligenza, errata manovra, nonché azioni 
dolose e colpose in genere; 

f) trasporti e smontaggi connessi con lavori di pulizia o 
di manutenzione; 

g) furto e rapina; 

h) terremoto, maremoto od eruzioni vulcaniche; 

i) persone che prendono parte a tumulti popolari, scio¬ 
peri, sommosse e che perpetrino indivudualmente od 
in associazione atti di terrorismo o sabotaggio verifi¬ 
catisi in occasioni di serrate 

3) Sez. Il - Responsabilità Civile Terzi 

L'assicurazione si intende inoltre prestata per la Respon¬ 
sabilità Civile derivante all'Assicurato dalla proprietà e 

dall'uso personale del Computer assicurato identificato 

nel certificato di assicurazione. 

I massimali di garanzia si intendono fissati in: 


L. 100.000.000 per sinistro con il limite di 

L 100.000.000 per ciascuna persona deceduta o che 
abbia subito lesioni personali 

L. 100.000 000 per danni a cose e/o ammali. 

4) Esclusioni 

La Società non è obbligata per i danni dovuti a: 

- dolo dell'Assicurato; 

- corrosione, deperimento, logoramento che siano con¬ 
seguenza del normale uso o funzionamento o causati 
dagli effetti graduali degli agenti atmosferici; 

- per i quali deve rispondere il fornitore, venditore o loca¬ 
tore degli enti assicurati per legge o per contratto, o per 
inadeguata manutenzione, 

- causati da difetti di materiale o di costruzione che esi¬ 
stevano già all'atto della stipulazione della polizza ed 
erano a conoscenza dell’Assicurato; 

- causati direttamente od indirettamente da avvenimenti 
bellici, sommosse militari, invasioni, adozionedi misure 
da parte di potenze straniere, rivoluzione, ribellione, 
insurrezione, assunzione od usurpazione di potere di 
carattere militare, sequestri; 

- verificatisi in occasione di esplosione, radiazione nu¬ 
cleare o di contaminazione radioattiva, 

- uso improprio del bene (mancato rispetto delle norme 
di impiego dettate dal costruttore); 

- danni estetici (quelli interessanti l'involucro esterno che 
non sia conseguenza di un danno risarcibile a termine 
della presente polizza); 

- guasti casualmente riconducibili ad interventi, a ripara¬ 
zioni e/o modifiche effettuate da un centro non autoriz¬ 
zato dalla casa costruttrice della macchina; 

- danni indiretti in genere. 

5) Operatività della garanzia 

a) La garanzia è operante solamente se gli enti assicurati 
sono ubicati presso il domicilio dell'Assicurato od in 
luoghi diversi da questi se in possesso dell'Assi¬ 
curato. 

b) La garanzia è pure efficace se i beni si trovano sull'au¬ 
tovettura in uso all'Assicurato, salvo i seguenti casi: 

- qualora l’autovettura venga lasciata incustodita dal¬ 
le ore 22 alle ore 6; 

- qualora l'autovettura regolarmente chiusa a chiave 
venga lasciata incustodia dalle ore6 alle ore 22 e gli 
enti assicurati non opportunamente occultati nel 
bagagliaio. 


c) Limitatamente ai danni di rottura la garanzia è effica¬ 
ce solamente nel caso questi siano dovuti ad un inci¬ 
dente in cui rimanga coinvolto anche il veicolo in uso 
dell'Assicurato che trasportava i beni assicurati 

d) Per gli enti per i quali non è stato stipulato il contratto 
di manutenzione e/o assistenza con la casa costrut¬ 
trice e/o ditte di essa mandatarie qualora l'ente ri¬ 
chieda per norma del fornitore detto contratto, la 
Società non risponde dei danni verificatisi in conse¬ 
guenza di guasto meccanico e/o elettrico salvo che 
l'Assicurato provi che tale guasto sia causato da even¬ 
to esterno agli enti assicurati o da incendio originato 
da uno di questi enti 

6) Somma Assicurata 

La somma assicurata per ciascun ente deve corrispondere 
al costo di rimpiazzo, ossia al prezzo di listino della casa 
costruttrice ed escluso ogni sconto o prezzo di favore di 
un ente nuovo, eguale od equivalente per caratteristiche, 
prestazioni e rendimento economico 


7) Premio 

Per ogni singola applicazione è stabilito un premio forfet¬ 
tario omnicomprensivo cosi calcolato: 


Somma assicurata 

Premio 

da 2.500.000 a 3.000.000 

L. 50 000 

da 3.000.000 a 5.000.000 

L 65 000 

da 5.000.000 a 7 000.000 

L. 80.000 

da 7.000.000 a 10.000.000 

L. 100.000 

da 10.000.000 a 15.000.000 

L. 120.000 

da 15.000.000 a 20.000.000 

L. 150.000 


8) Franchigia 

per ogni e qualsiasi danno che colpisca gli enti assicurati è 
stabilita una franchigia di: 

L. 50.000 per somma assicurata fino a L. 5.000.000 
L. 100.000 per somma assicurata superiore a 
L. 5.000.000 

Per sinistri causati da eventi come ai punti g) ed h) delle 
garanzie prestate, la Società liquiderà i danni sotto dedu¬ 
zione di uno scoperto pari al 20% della somma assicurata, 
col minimo delle franchigie sopra stabilite. 

9) Rinvio alle norme di legge 

Per tutto quanto non è qui diversamente regolato, valgono 
le norme di legge. 


..- -. 

e applicando 

vi mettono al sicuro 


Si! Desidero assicurare i miei/il mio computer. Inviatemi a stretto giro di posta il certificato emesso dalla Ras. 
L'assicurazione avrà valore a decorrere dalle ore 24 del giorno di spedizione della mia adesione. Per la data fa fede il 
timbro postale. 


COGNOME. 

NOME . 

INDIRIZZO. 

CAP. CITTA' . 


. PROVINCIA. 

. N. 

Assicuro i/il seguente personal: 
Marca e Modello 

N. di matricola 

Valore (IVA compresa) 



con le seguenti periferiche (stampanti, video, drive, hard disk, ecc) 

Marca e Modello N. di matricola valore (IVA compresa) 


Nel caso non abbiate sufficiente spazio ricopiate su un foglio il testo completo di questo tagliando indicando tutti i prodotti che intendete assicurare. 

Per un totale complessivo di Lire.su cui pago il premio calcolato in base alla tabella riportata qui sopra (su fondoverde). 

Allego assegno non trasferibile di Lire.intestato a Editronica srl, Corso Monforte 39,20122Milano. 











































Applesoft. Copiate dapprima il listato 
in linguaggio macchina, LETTORE 
SUONO (visibile nel listato 1). Per 
avere aiuto nell’introduzione dei lista¬ 
ti in linguaggio macchina, leggete l’ar¬ 
ticolo Per chi comincia. Quando avete 
ultimato la battitura del listato, salvate 
il programma sul dischetto con il co¬ 
mando: 


BSAVE LETTORE SUO- 
NO,A$300,L$70 


poi introducete il programma in Ap¬ 
plesoft visibile nel listato 2. Dovete 
salvare il programma prima di cercare 
di eseguirlo, a causa del modo in cui il 
programma si riposiziona al disopra 
dello schermo grafico Hi—Res. Fa così 
(nelle linee di programma 90-110) 
perché il programma è troppo grande 
per stare completamente sotto la pagi¬ 


na 1 dello schermo Hi-Res. 

Quando avete introdotto il pro¬ 
gramma, salvatelo con il nome SIN¬ 
TETIZZATORE. Solo a questo pun¬ 
to potrete utilizzare il programma. 

Riga per riga 


80—320 Inizializzazione 
330—430 Pulisce per il suono seguente 
440—600 Loop principale di creazione 
del suono 

610—690 Trattamento pressione pul¬ 
sante 

700—1040 Trattamento pressione ta¬ 
sto 

1050—1130 Menù principale 
1140—1210 Prova il suono 
1220—1280 Salva il suono 
1290—1310 Aggiunge al suono 


1320—1430 Visualizza il suono creato 
in precedenza 

1440—1460 Cancella il suono 
1470-1560 Cambia modo 
1570-1590 Fine 
1600—1800 Sposta il suono 
1810—1910 Carica la tavola dei suoni 
salvata 

1920—2630 Istruzioni 
2640—2760 Trappola degli errori 


La principale sezione di lavoro del 
programma è il loop di creazione ed 
editing del suono, situato nelle linee 
330—430. Questo loop sorveglia se sia 
stato premuto un tasto. Nel modo di 
introduzione da paddle il loop conser¬ 
va la posizione verticale del cursore e 
inoltre legge lo stato del pulsante della 
paddle. Se viene premuto un tasto, il 
programma salta alla routine delle li¬ 
nee 700—1040, per determinare quale 


1090 FRINÌ RAGGIUNGE SUONO* ; : HTAB 21: PR1NT *7)FINE* 

1100 PRINT '«VISUALIZZA IL SUONO CREATO * : : GET A4 
1110 X = VAL (A4): IF X < 1 OR X > 7 THEN 1040 
1120 ON X GOSUB 1150,1230,1300,1330.1450,1480,1580 
1130 GOTO 1040 
1140 REM PROVA IL SUONO 

1150 HOME : VTAB 21: HTAB ?: FRINÌ '«PROVARE IL SUONO*»' 

1140 INPUT 'ALTEZZA TOTALE DEL SUONO (1-9)? ";P: IF P < 1 OR 
P > 9 THEN 1140 

1170 INPUT 'NUMERO DELLE RIPETIZIONI (1-255)? *;R: IF R < 

1 OR R > 255 THEN 1170 

1180 INPUT "LLNGHEZZA DI OGNI SUONO (1-255)? ";L: IF L < 1 
OR L > 255 THEN 1180 

1190 PRINT "DALL 748,'SNUM','P','R','L: CALL 748,SNLM,P,R, 

1200 PRINT ' «PREMI RETURN PER IL MENU'» ';: GET A4: 

IF ASC (A4) = 13 THEN RETURN 
1210 GOTO 1150 
1220 REM SALVA IL SUONO 

1230 HOME : VTAB 21: PRINT * VERIFICA SALVATAGGIO (S/N)? ' 

; : GET A4: IF A4 < > 'S' THEN RETURN 
1240 HOME : VTAB 21: PRINT ' «STO SALVANDO LA TAVOLA DEI 
SUONI**': PRINT 'NOME DELLA TAVOLA - ':W1E4 
1250 A = ( PEEK (STADD * NUM * 254 - 254) = 0) 

1240 X = 254 * (NLM - A):NUM = NUM + 1 - A 
1270 PRINT 04:'BSAVE ';NAME4;',A';STADD ; ', L ' jX 
1280 POP : GOTO 1870 
1290 REM AGGIUNGE AL SUONO 

1300 HC0L0R= 0: HPL0T CX,4 T0 CX,9: HPL0T CX,142 T0 CX.147 
1310 POP : GOTO 370 

1320 REM VISUALIZZA IL SUONO PRECEDENTE 
1330 IF NUM < 2 THEN RETURN 

1340 HOME : VTAB 21: PRINT 'QUALE SUONO VUOI VEDERE (l-'NU 
M;: INPUT *)? ':A4 

1350 X = VAL (A4): lF X < 1 OR X ) NUM THEN 1340 

1340 HPLOT 13,11 T0 247,11: HC0L0R= 0: HPL0T 2,1 TO 2,158 

1370 SNUM = X:INUM = PEEK (STADD * SNUM * 254 - 254) 

1380 F0R N = 1 T0 255 

1390 CX = 2 + N:0 = PEEK (STADD * SNUM * 254 - 254 * N):CY 
= Z + Q / 2 

1400 HPLOT CX,1 T0 CX,158: IF S > 0 THEN XDRAU 1 AT CX,CY 
1410 NEXT 

1420 IF M = 2 THEN GOSUB 1540 

1430 CX = 2 + TNUM: HC0L0R= 3: HPLOT CX,4 T0 CX,9: HPLOT CX 
,142 T0 CX,147 : RETURN 
1440 REM CANCELLA IL SUONO 

1450 HOME : VTAB 21: PRINT 'VERIFICA LA CANCELLAZIONE (S/N 
)? GET A4: IF A4 < > 'S' THEN RETURN 
1440 POP : GOTO 340 
1470 REM CAMBIA IL MODO 

1480 HOME : VTAB 21: INVERSE : PRINT ' MODO CORRENTE ': PRINT 
M4(M>: PRINT 14(1): N0RMAL 


1490 VTAB 22: HTAB 18: PRINT '1'CAMBIA MODO SUONO' 

1500 HTAB 18: PRINT SCAMBIA MODO INTR0DUZ.' 

1510 HTAB 14: PRINT '«RETURN PER IL MENU'» ■ ; : GET A4 

1520 X = ASC (A4): IF X = 13 THEN RETURN 

1530 IF X = 49 THEN M = 2 - (M = 2): GOSUB 1540: GOTO 1480 

1540 IF X = 50 THEN I = 2 - <1 = 2): GOTO 1480 

1550 GOTO 1480 

1540 HCQL0R= M - 1 : F0R N = 2 * M - 2 T0 4: HPLOT 10,Y(N) T0 
249,Y(N): NEXT ; RETURN 
1570 REM FINE 

1580 HOME : VTAB 21: PRINT 'SEI SICURO (S/N)? ';: GET A4: IF 
A4 ( > 'S' THEN RETURN 
1590 TEXT : HOME : END 
1400 REM VISUALIZZA LO SPOSTtflENTO 

1410 HC0L0R= 3: HPLOT CX,4 T0 CX,9: HPLOT CX.142 T0 CX,147 

1420 HOME : VTAB 21: PRINT “CON QUESTA CARATTERISTICA PUOI 
SPOSTARE' 

1430 PRINT 'TUTTI I DOT CHE SONO ALLA DESTRA DEL': PRINT ' 
CURSORE." 

1440 PRINT "SPOSTI A SINISTRA 0 A DESTRA (S/D)? * : : GET A4 
: PRINT A4 

1450 IF A4 = "D" THEN A4 = 'DESTRA':X = 1: GOTO 14B0 
1440 IF A4 < ) ’S" THEN 1410 
1470 A4 = "SINISTRA":X = -1 

1480 PRINT 'QUANTO A 'A4" (0-9)? ":: GET A4: PRINT A4: 

1490 PRINT : PRINT : INVERSE : HTAB 14: PRINT 'STO SPOSTAN 
DO":: N0RMAL 

1700 X = X * VAL (A4): 0N SGN (X) * 2 GOTO 1710,1800,1730 

1710 IF - X ) = TNUM THEN X = 1 - TNUM 

1720 F0R N = TNUM T0 255: GOTO 1750 

1730 IF X * TNUM ) 255 THEN RETURN 

1740 F0R N = 255 - X T0 TNUM STEP - 1 

1750 Q = STADD ♦ 254 * SNUM - 254 ♦ N: P0KE Q * X, PEEK (Q) 

: NEXT 

1740 IF X ) 0 THEN F0R N = TNUM T0 TNUM * X: POKE STADD * 
SNUM * 254 - 254 * N.0: NEXT : GOTO 1780 
1770 F0R N = 255 + X T0 255: POKE STADD * SNUM * 254 - 254 
* N ,0 : NEXT 

1780 POKE STADD * SNUM * 254 - 254,TNUM ♦ X:X = SNUM 
1790 GOSUB 1340 
1800 RETURN 

1810 REM CARICA LA TAVOLA DEI SUONI SALVATA 
1820 PRINT 'BATTI IL NOME DELLA TAVOLA DE! SUONI" 

1830 PRINT 'BATTI 'CAT' PER IL CATALOGO': 0NERR GOTO 2440 

1840 INPUT NAME4: IF NAME4 = "CAT' THEN 1900 
1850 PRINT D4:"BL0A0':NAME4;" A'iSTADD: POKE 214.0 
1840 NUM = PEEK (43417) t 1: REM PER IL PR0D0S CAMBIARE I 
N 48858 L'INDIRIZZO DI PEEK 

Continua 
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tasto sia stato premuto e che cosa fare 
in proposito. Se il pulsante della padd- 
le è premuto nel modo introduzione 
da paddle, il programma salta invece 
alla routine delle linee 610—690. Per 
comprendere queste due routine e tut¬ 
ti i loro PEEK e POKE elenchiamo 
qualche variabile utilizzata nel pro¬ 
gramma. 


CX,CY — le coordinate X e Y del 
cursore. 

PITCH — Il numero dell’altezza del 
suono; 1 rappresenta l’altezza massi¬ 
ma, 255 quella minima, e 0 rappresen¬ 
ta una pausa. 

TNUM — Il numero dei dot di suono 
singolo alla sinistra del cursore (com¬ 
prese le pause). 

SNUM - Il numero del suono. 
STADD — L’indirizzo di avvio della 
tavola dei suoni. 


La tavola dei suoni è semplicemente 
una lista del numero di altezza del suo¬ 
no di ciascun dot di suono singolo in 
esadecimale. A ogni suono della tavo¬ 
la sono assegnati $100 (ossia 256) byte. 
Il primo (o $00) byte di ciascun suono 
dà il numero dei byte assegnati che 
sono effettivamente usati per quel 
suono, e quindi è un numero compre¬ 
so fra $01 e $FF. Ciascuno dei byte 
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successivi, fino al byte $FF compreso, 
contiene il numero di altezza del suo¬ 
no di uno dei dot di suono, o uno zero 
se in quella posizione non c’è alcun dot 
di suono. Il suono seguente comincia 
con il successivo intervallo di byte 
$100, e quindi una tavola dei suoni di 
quattro suoni sarà lunga $400 byte. Il 
listato 4 dà un esempio di tavola dei 
suoni. 

Come si può vedere, una tavola dei 
suoni di vaste proporzioni occupa un 
notevole quantitativo di memoria. 
Fortunatamente è facile mettere la ta¬ 
vola dei suoni in una sezione di memo¬ 
ria che non verrebbe altrimenti usata. 
Il SINTETIZZATORE DI SUONI 
costruisce la tavola dei suoni comin¬ 
ciando aH’indirizzo di memoria $6400, 
che è un poco sopra la pagina 2 della 
grafica ad alta risoluzione. Questa lo¬ 
cazione dovrebbe andar bene nella 
maggior parte delle circostanze. Tut¬ 
tavia se si ha un programma lungo e si 
vuol mettere il programma sopra gli 
schermi della grafica, si può, volendo, 
mettere la tavola dei suoni a $800. Per 
far questo basta usare nel proprio pro¬ 
gramma queste linee: 

BLOAD LETTORE SUONI 
BLOAD filesuoni, A$800 
POKE 789,8 



Seikosha ti invita nel meraviglioso mondo delle sue stampanti. 

Un mondo fatto di progresso, di elevatissima qualità, velocità e silenziosità di stampa. 
Seikosha oggi ti propone la più vasta gamma di stampanti, compatibili e affidabili, ideate 
per esaltare le prestazioni di ogni tipo di computer. 

All'altezza di ogni esigenza, anche della tua. 
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Il POKE cambia il byte del pro¬ 
gramma LETTORE SUONI che iden¬ 
tifica la locazione della tavola dei suo¬ 
ni. Se si vuole la tavola dei suoni da 
qualche altra parte della memoria si 
rammenti quanto segue: 

• Il byte basso dell’indirizzo esadeci- 
male deve essere $00 (cioè $800, 
$4000, $6100). 

• Il secondo parametro del POKE de¬ 
ve essere l'equivalente decimale del 
byte alto delPindirizzo esadecimale. 


Lettore di suoni 

La base di tutti gli effetti sonori pro¬ 
dotti dall’Apple è la locazione di me¬ 
moria -16336, o $C030 in esadecima¬ 
le. L’accesso a questa locazione pro¬ 
durrà un singolo click dell’altoparlan¬ 
te dell'Apple. In linguaggio macchina 
questi click possono essere generati 
abbastanza rapidamente da produrre 
un suono singolo, la cui altezza dipen¬ 
derà dalla lunghezza della pausa fra i 


click. Il programma LETTORE SUO¬ 
NI usa i dati memorizzati in un file di 
suoni creato dal SINTETIZZATORE 
per determinare la lunghezza di queste 
pause. I particolari del modo in cui ciò 
viene fatto si possono comprendere 
meglio esaminando il listato assembla¬ 
tore del programma (listato I). 

Le Linee 20—31 memorizzano i pa¬ 
rametri n, p, r e 1 dal comando CALL 
in SNUM, OPITCH, REP e TLEN 
rispettivamente. 


1870 HOME : VTAB 21: PRINT "IL FILE ’NAMEI’ ATTUALMENTE’ 

1880 PRINT ‘CONTIENE ’NUM - 1’ SUONI.’ 

1890 SNUM = NUM: GOTO 340 
1900 PRINT Mi’CATALOG’ 

1910 GOTO 1820 

1920 REM ISTRUZIONI 

1930 HOME : HTAB 14: PRINT "ISTRUZIONI’ 

1940 VTAB ti PRINT 'QUESTO PROGRAMMA CREA 1 SUONI IN DUE 
MODI." 

1950 PRINT : PRINT ’IL PRIMO E' PER CREARE EFFETTI SONORI’ 

1960 PRINT ‘DI OGNI VARIETÀ', E IL SECONDO E' PER’ 

1970 PRINT ‘SINTETIZZARE LA MUSICA." 

1980 PRINT ; PRINT ’PER USARE IL MODO UNO DISPORRE IL SU0N 
0’ 

1990 PRINT "VOLUTO SUL MONITOR IN HI USANDO Uftt ’ 

2000 PRINT ’PADDLE 0 JOYSTICK E LA TASTIERA, 0 SOL- "j: 

2010 PRINT ‘TANTO LA TASTIERA.’ 

2020 PRINT : PRINT 'LA PARTE ALTA DELLO SCHERMO RAPPRESENT 

A’ 

2030 PRINT 'IL SUONO ALTO, E LA PARTE BASSA IL SUONO’; 

2040 PRINT 'BASSO.' 

2050 F0R N = 1 T0 255 

2060 0 = (N < 127) * (125 - 60 * SIN (N * .05)) 

2070 POKE STADD ♦ N.Q: NEXT 

2080 G0SUB 2610: PRINT ’UN ESEMPIO POTREBBE PRESENTARSI CO 
SI'.’ 

2090 HGR : HC0L0R= 3: HPL0T 0,0 T0 279,0 T0 279,159 T0 0,1 
59 T0 0,0 

2100 X = 1:M = 1 : POKE STADD,126: GOSUB 1360 
2110 VTAB 21: PRINT "QUAND0VU01 SENTIRE IL SUONO RITORNA 
AL’ 

2120 PRINT 'MENU' E USA L'OPZIONE 'PROVA'.’: GOSUB 2610 
2130 PRINT 'CONTROLLA L'ALTEZZA TOTALE DEL SUONO,* 

2140 PRINT ’IL NUMERO DELLE RIPETIZIONI’ 

2150 PRINT "E LA LUNGHEZZA DI OGNI NOTA.’: GOSUB 2610 
2160 PRINT ’CON LE NOTE DISEGNATE SOPRA, QUESTO’: CALL 768 
.1.1,1,30 

2170 PRINT ’E QUESTO,’: CALL 768,1,2,10.1 
2180 PRINT ’E QUESTO. CALL 768.1.9,3,3 
2190 PRINT 'SONO POSSIBILI.’: GOSUB 2610 
2200 PRINT ‘SE NON SEI SODDISFATTO DEL SUONO, ’ 

2210 PRINT "USA L'OPZIONE 'AGGIUNGE SUONO'.’: GOSUB 2610 
2220 PRINT "PUOI SPOSTARE IL CURSORE IN ORIZZONTALE’ 

2230 PRINT ’A SINISTRA 0 A DESTRA CON LE FRECCE.’ 

2240 PRINT ’0 CON 1 TASTI DEI NUMERI (0-9).’: GOSUB 2610 
2250 PRINT -PUOI SCRIVERE SOPRA INA SEZIONE ERRATA’ 

2260 PRINT "CON DOT DI SINGOLI SUONI DIVERSI, 0 CAN-CELLAR 
E UNA’; 

2270 PRINT ’ SEZIONE CON LA BARRA SPAZIO.’;: GOSUB 2610 

2280 TNUM = 30:CX = Z ♦ 126:CY = 60 

2290 PRINT ‘PUOI ANCHE SPOSTARE LA PARTE DESTRA’ 

2300 PRINT 'DELLO SCHERMO A SINISTRA 0 A DESTRA.’ 

2310 PRINT "METTI PER ESEMPIO IL CURSORE QUI E’ 

2320 PRINT 'PREMI ESC PER PROVARE. «PREMI ESC» ’; 

2330 HCOtOR= 0: HPLOT CX,4 T0 CX,9: HPLOT CX.142 TO CX,147 
:CX = Z + TNUM: XDRAU 2 AT CX,CY 
2340 GET Mi IF ASC <A$) < ) 27 THEN 2340 
2350 XDRAU 2 AT CX.CY: GOSUB 1610 
2360 HOME : VTAB 21 : IF X = 0 THEN PRINT ’PER FAVORE PR0V 
A ANCORA CON UNO SP0STA-MENT0 NON-ZERO.’: GOSUB 2610: GOTO 
2320 

2370 PRINT ‘OSSERVA CHE IL LETTORE SUONI LEGGE SOLO FINO’; 

2380 PRINT ’ ALLE BARRE DI 'FINE DEL SUONO'.’: CALL 768,1, 
2.3.70 

2390 GOSUB 2610: PRINT 'PERCIÒ' METTI IL CURSORE ALLA FINE 
DEL’ 


2400 PRINT 'SUONO PRIMA DI FARE LA PROVA,’: GOSUB 2610 
2410 PRINT "IL MODO DUE PREDISPONE UN PENTAGRAU1A" 

2420 PRINT ‘CHE PERMETTE DI TRASCRIVERE DIRETTAMENTE’; 

2430 PRINT ‘DALLO SPARTITO IN QUESTO MODO.’ 

2440 Q = ! : FOR N = 0 TO 8 

2450 READ X,A: DATA 7,9,5,11,3,14,14,1,5,9,6,8,5,9,7,7,14 
,60 

2460 FOR TNUM = Q TO Q + A: POKE STADD * TNIN,Q(X) 

2470 NEXT TNUM:Q = TNUM 
2480 NEXT N 

2490 POKE STADD,79:X = !:M = 2: GOSUB 1360 

2500 GOSUB 2610: PRINT "LE NOTE ALTE HtfHO UN SUONO PIU' V 

ELOCE’ 

2510 PRINT ‘QUINDI LA LINEA DELLA NOTA DEVE ESSERE’ 

2520 PRINT ’PIU' LUNGA PER AVERE UN'UGUALE DURATA.’: CALL 
768.1,4.1,12 

2530 GOSUB 2610: CALL 768.1.1 ,«25: TEXT : VTAB 7 
2540 PRINT "QUANDO SEI SODDISFATTO DEL SUONO REGI-’ 

2550 PRINT ’STRA IL C0WND0 CALL VISUALIZZATO E ’ 

2560 PRINT ‘SALVA IL SUONO. PER USARE IL SUONO IN UN’; 

2570 PRINT ’PROGimiA IN APPLESOFT CARICA CON BL0AD’ 

2580 PRINT 'IL FILE DEI SUONI E IL PROGRAMMA LETTORE’: 

2590 PRINT 'SUONI E USA IL CtmiDO CALL PER ESEGUIREI!. SUO 

NO.' 

2600 GOSUB 2610: RESTORE : GOTO 160 

2610 VTAB 24: HTAB 7: PRINT "«RETURN PER CONTINUARE» ’; 

2620 GET Mi IF ASC (Af) < > 13 THEN 2610 
2630 HOME : VTAB 21; RETURN 
2640 REM ROUTINE DEGLI ERRORI 

2650 EL = 1: GOTO 2670: REM PUNTATORE PER SCRITTURA SU DI 
SCO 

2660 EL = 2: REM PLNTATDRE PER LETTURA DA DISCO 
2670 ER = PEEK (222) 

2680 IF ER = 4 THEN PRINT 'DISCO PROTETTO IN SCRITTURA’: GOTO 
2760 

2690 IF ER = 6 THEN PRINT "IL FILE NON ESISTE’: GOTO 2760 

2700 IF ER = 8 THEN PRINT 'ERRORE DI I/O DISCO’: GOTO 276 

0 

2710 IF ER = 9 THEN PRINT ‘DISK FULL’: GOTO 2760 

2720 IF ER = 10 THEN PRINT 'FILE PROTETTO’: GOTO 2760 

2730 IF ER = 11 THEN PRINT 'NOME DEL FILE NON VALIDO’: GOTO 

2760 

2740 IF ER = 13 THEN PRINT ’IL TIPO DEL FILE NON C0RR1SP0 
NDE': GOTO 2760 

2750 PRINT 'ERRORE N.‘;ER’A LINEA ’; PEEK (218) * PEEK (2 
19) * 256 

2760 0N EL GOTO 300,1820 
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Le linee 32—42 calcolano il byte alto 
dell'indirizzo dell'inizio del suono, ba¬ 
sato sul numero del suono, e lo memo¬ 
rizzano nelle locazioni di memoria 
$324 e $33F dentro il programma. Ciò 
corregge STSOUND, che è in origine 
impostato su SFFOO. 

Le linee 43—45 memorizzano la lun¬ 
ghezza del suono in SLEN. 

Le linee 46—55 calcolano il valore 
esatto per BRANCFI, basato sull’al¬ 
tezza totale di suono p. Una volta che 
la correzione è fatta, la linea 85 pro¬ 
durrà un salto a una delle linee 75-83. 
Un salto alla linea 75 ha come conse¬ 
guenza la pausa più lunga, e si verifica 
con un'altezza totale di suono di 9. 

Le linee 56—96 sono il loop che pro¬ 
duce il suono. AH’interno di questo 
loop viene caricato nel registro X un 
numero di altezza del suono preso dal¬ 
la tavola dei suoni. Se quel numero è 
zero, la linea 72, che provvede al click 
dell’altoparlante, viene saltata. Le li¬ 
nee 73—83 eseguono la pausa fra i 
click che determina l’altezza del suo¬ 
no. Dopo la pausa ci sono i salti condi¬ 
zionati per i tre loop nidificati che de¬ 
terminano se ripetere lo stesso nume¬ 
ro di altezza del suono, andare al nu¬ 
mero di altezza del suono seguente, 
ripetere il suono o finire. 

La diversità dei suoni generati da 
questa routine deriva dalle variabili 
OPITCH, REP e TLEN e dalla natura 
delle tavole dei suoni che legge. La 
sola questione che rimane è come fare 
una tavola dei suoni che produca i suo¬ 
ni desiderati. 

Programma 

dimostrativo 

I programmi SINTETIZZATORE 
e LETTORE SUONI sono in sé com¬ 


pleti, e il SINTETIZZATORE com¬ 
prende le istruzioni per l’uso del siste¬ 
ma. Ma la varietà di tecniche possibile 
è abbastanza grande perché un buon 
corredo di esempi sia utile per mettersi 
sulla via giusta. A questo scopo vengo¬ 
no qui presentati, come listati 3 e 4, 
anche il programma in Applesoft 
SOUND.DEMO e il file binario 
SUONI. SUONI deve essere introdot¬ 
to dal Monitor, e quando è completo 


può essere salvato su dischetto con il 
comando: 


BSAVE SUONI, AS6400, L$E00 


SUONI è un vero e proprio file di 
suoni creato con il SINTETIZZATO¬ 
RE e comprende suoni come una bat¬ 
teria laser, canti di uccelli, un’esplo¬ 
sione, mitragliatrici, l’inno dei Marine 
e altro (si vedano le Figure da 3 a 11). 


AMS - HE 

APPLE MASS. STORAGE 


DISCO RIGIDO DA IO MB 
CON LA SICUREZZA DEL 
BACK UP SU FLOPPY DA 655 KB 
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Inoltre richiama ciascun suono e mo¬ 
stra il comando o i comandi utilizzati 
per crearli. Nel complesso è inteso a 
far comprendere meglio come viene 
creato il suono, in modo che l’utente 
possa progettare più agevolmente suo¬ 
ni personalizzati per i suoi programmi. 


Modifiche 
al programma 

Quando si comprende a fondo il 
SINTETIZZATORE si può decidere 
di modificare il programma. E perciò 
importante osservare che la fine del 
programma viene molto vicina all’ini- 


460 P = 1:R = 20:L = 1 : GOSUB 1250 

470 X = 4: GOSUB 1300:P = 4:R = 8:L = 20: GOSUB 1240 

480 X = 5: GOSUB 1300:P = 1:R = 1:1 = 50: GOSUB 1240 

490 X = 6: GOSUB 1300:P = 1:R = 1:L = 30: GOSUB 1240 

500 PRINT ‘ANCHE UNO SCHEttt SEMPLICE PUÒ’ SIMULARE' 

510 PRINT ‘IL CINGUETTIO DI UN UCCELLO.“:X = 7: GOSUB 1300 
:P = 1 :R = 10:L = 1: GOSUB 1240 
520 PRINT ‘SE SI DESIDERA UN SUONO PIU' NATURALE" 

530 PRINT ‘E' NECESSARIO INTRODURRE PAUSE CASUALI IN QUES 
T0 MODO: ‘ : GOSUB 1280 

540 PRINT ‘590 POR N = 1 TO 10: CALL 768,7 
550 HTAB 6: PRINT ’1,1,1:X = RND (1) * 500: POR 1 
560 HTAB 6: PRINT ‘Q =1 TO X: NEXT Q: NEXT N* 

570 POR N = 1 T0 10: CALL 768,7,1.1.1:X = RND (1) * 440: POR 
0 = 1 TO X: NEXT Q: NEXT N 

580 GOSUB 1280: PRINT ‘A VOLTE SPOSTANDO IL SUONO IN SU 0 
IN" 

590 PRINT ‘GIU' SUL VIDEO SI PUÒ' OTTENERE IM PlC-‘; 

600 PRINT ‘COLA MA IMPORTANTE DIFFERENZA NEL SUONO.*;: GOSUB 
1280) 

610 PRINT ‘COSI' PER LA GRANATA IN ARRIVO ABBIAMO" 

620 PRINT -USATO QUESTO.":X = 8: GOSUB 1300 

630 P = 2:R=1:L=8: GOSUB 1240 

640 PRINT 'PER ALCUNI SUONI E' MENO EVIDENTE COME* 

650 PRINT ‘PREDISPORLI. PROCEDERE PER TENTATIVI* 

660 PRINT 'ASSUME UNA GRANDE IMPORTANZA.": GOSUB 1280 
670 PRINT ‘PER ESEMPIO. AVRESTE MAI IMMAGINATO CHE* 

680 PRINT ‘L'OSCILLOGRAFWA DI m MITRAGLIATRICE* 

690 PRINT ‘AVESSE QUESTO ASPETTO?’:X = 9: GOSUB 1300 

700 P = 3:R = 40:L = 4: GOSUB 1240 

710 PRINT ‘ALTRI SUONI POSSONO ESSERE SEMPLICI 

720 PRINT ‘RICHIEDERE INNOVAZIONI NELL'ESECUZIONE 1 

730 PRINT ‘PERCHE' IL LORO SUONO SIA GIUSTO.’: GOSUB 1280 

740 X = 10: GOSUB 1300: PRINT ‘PER ESEMPIO QUESTO.’ 

750 PRINT ‘LE TECNICHE ORDINARIE NON DAMO NULLA DI * : 

760 PRINT ‘PARTICOLARMENTE INTERESSANTE.*:P = 5:R = 3:L = 

20: GOSUB 1240 

770 P = 9:R = 30:L = 1: GOSUB 1250 
780 P = 2:R = 20:L = 3: GOSUB 1250 
790 PRINT ‘MA, IN UN PROGRAM*! IN BASIC. SI PUÒ'* 

800 PRINT ‘FARE INA ROUTINE CHE LO RIPETA AD ALTEZ-* ; 

810 PRINT *ZE DIVERSE, DA 1 A 9, CONSECUTIVAMENTE?*: GOSUB 
1280 

820 PRINT ‘UNA LINEA COME QUESTA LO REALIZZEREBBE.’ 

830 PRINT *890 FOR N = 3 TO 27:X = INT (N /* 

840 HTAB 6: PRINT ‘3): CALL 768,10,X,1,1 : NEXT* 

850 GOSUB 1280 

860 PRINT ‘E L'ESECUZIONE DEL SUCNO SAREBBE QUESTA.*;: GOSUB 
1280 

870 F0R N = 3 TO 27:X = INT <N / 3): CALL 768,10,X,1,1: NEXT 

880 GOSUB 1280: PRINT 'OPPURE SI POTREBBE AGGIUNGERE UN AL 
TR0 SUONO E ALCUNI COMANDI FLASH, E SI * 

890 PRINT 'OTTERREBBE QUESTO.": GOSUB 1280: GOSUB 210: GOSUB 
1280 

900 PRINT "SI PUÒ' RIPRODURRE SEMPLICE MUSICA* 

910 PRINT ‘INTRODUCENDOLA NOTA PER NOTA DALLO’ 

920 PRINT ‘SPARTITO. ECCO UN ESEMPIO.*:X = 11: GOSUB 1300: 
GOSUB 1230 

930 P = 2:R = 1 :L = 30: GOSUB 1240 

940 PRINT *ECC0 UWt MELODIA CHE E' PIU' ALTA SULLA* 

Continua 




Listato 3: SOUND. DEMO 


10 REM ***#**#***»»*»***«»»*****«* 

20 REM » SOUND.DEMO * 

30 REM » DI JAMES R. GESCHWENDER » 

40 REM * COPYRIGHT (0 1985 * 

50 REM * BY APPLICANDO 4 * 

60 REM * M1CR0SPARC, INC. * 

70 REM «««il***»»**»»*******»*#*» 

80 DIM Y(4):W = CHI» (4):STADD = 25600:2 = 12.5 
90 PRINT DVBL0AD LETTORE.SUONI 1 : POKE 789,100 
100 F0R N = 0 TO 4: READ Y(N): NEXT : DATA 65,77,89,107,1 
28 

110 TEXT : HOME : VTAB 10: HTAB 10: PRINT ‘DIMOSTRAZIONE 
SUONO*: VTAB 22: PRINT ‘(0 1985 BY APPLICANDO 4 MICROS 
PARC INC * 

120 PRINf D$;*BLOAD SUONI* 

130 F0R N = Ò T0 3000: NEXT : CALL 766,6,1,1.30 
140 CALL 768,13,5,2,13: CALL 768,14,5,1,13: FOR N = 1 T0 4 
50: NEXT : CALL 768,13,5,1,13 
150 CALL 768,9,3,40,4: GOSUB 210 
160 CALL 768,9,3,15,4: GOSUB 210: GOSUB 210 
170 FOR N = 1 TO 1500 : NEXT 
180 CALL 768,11,2,1,30: FOR N = 1 TO 500: NEXT 
190 FOR N = i TO 10: CALL 768,7,1,1,1;X = RND (1) * 440: FOR 
Q = 1 TO X: NEXT Q: NEXT N 
200 GOTO 220 

210 CALL 768,8,2.1 ,8: FOR N = 1 TO 9: CALL 768,10,N,1,1 : POKE 
- 16299,0: CALL 768.10,N,1.1: POKE - 1631)0,0: CALL 7 
68,10,N,1,1: NEXT : RETURN 

220 HOME : VTAB 5: PRINT *IL PROGRAMMA SI PROPONE DI INDIC 
ARE AL- 1 

230 PRINT "CLNE DELLE CAPACITA' DEL SINTETI2ZAT0RE* 

240 PRINT *01 SUONI. TUTTI I SUONI CHE AVETE APPE-* 

250 PRINT SENTITO SONO STATI CREATI CON IL S1N-TETIZZA 
TORE*: 

260 PRINT ‘ DI SUONI E SONO STATI SALVA-TI SU QUESTO D1SCH 
ETTO CON IL NOME DI * 

270 PRINT ‘FILE 'SUONI'. SARAtflO INDICATE ALCUNE 1 
280 PRINT ‘TECNICHE UTILI COME AIUTO PER LA PROGET-*; 

290 PRINT ‘TA2KNE PERSONALE DEI SUONI. PER OGNI * 

300 PRINT ‘SUONO EMESSO SARA' INDICATO*; 

310 PRINT * CHE ASPETTO HA IL SUONO E IL*: 

320 PRINT * COMANDO O 1 COMANDI USATI PER RICHIAMARLO*; 

330 PRINT * DA IN PROGRAMMA 1WPPLES0FT-BASIC.* : GOSUB 128 
0 

340 X = 1: GOSUB 1300 

350 PRINT 'PERFINO GLI SCHEMI PIU' SEMPLICI POSSONODARE*; 

360 PRINT * EFFETTI INTERESSANTI QUANDO SONO" 

370 PRINT "RIPETUTI RAPIDAMENTE.*:P = 1:R = 10:L = 7: GOSUB 
1240 

380 P = 4:R = 10-.L = 4: GOSUB 1250 
390 P = 9:R = 10:L = 2: GOSUB 1250 
400 PRINT ‘NATURALMENTE UNA MAGGIORE COMPLESSITÀ'* 

410 PRINT "DA' PIU' POSSIBILITÀ' ,‘:X = 2: GOSUB 1300 

420 P = 1:R = 10 :L = 1: GOSUB 1240 

430 P = 9:R = 7:L = 1: GOSUB 1250 

440 X = 3: GOSUB 1300 

450 P = 2:R = 15:L = 1: GOSUB 1240 


Figura 11. 
Grafico 
del suono 
del sibilo 
di una 
granata 
in arrivo. 
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ALLA SCOPERTA 
DELL’APPLE Ile 

di F. WAGNER DOBLER 


APPLE MACINTOSH: 

IL COMPUTER MAGICO 

di E.S. CONNOLLY e P. LIEBERMAN 


Il libro, rivolto ad utilizzatori professionali e 
hobbistici, espone in dettaglio le disponibilità e 
le capacità dell'Apple /te, incluso il suo 
hardware, le sue periferiche, le sue possibilità 
grafiche e l'uso di elaboratori di testo, tabelloni 
elettronici ed altre utilità software. Nel testo è 
compreso un esame delle specifiche hardware 
della macchina, un'analisi della documentazione 
ed una parte dedicata all implementazione dei 
linguaggi di programmazione BASIC, LOGO, 
PASCAL, PILOT ed assembler 65C02 
Il sistema operativo è trattato in dettaglio; cura 
particolare è stata dedicata al confronto fra 
l'Apple /te e il suo predecessore Apple Ile. 

Il presente libro costituisce un'inestimabile 
guida di riferimento per coloro che si 
propongono di acquistare l'Apple /te e 
desiderano un obiettivo giudizio delle sue 
capacità, oppure per coloro che, già 
possedendolo, sono interessati ad ulteriori 
informazioni pratiche sulle sue possibili 
applicazioni. 

Pag. 144 

Cod. 9301 L. 16.000 


IL 68000: PRINCIPI 
E PROGRAMMAZIONE 

di LED J. SCANLON 

Questo libro illustra le caratteristiche del 
microprocessore 68000 e fornisce le nozioni 
fondamentali per la sua corretta 
programmazione. 

In particolare vengono illustrati: 

- il Cross MacroAssembler della Motorola 

- il set di istruzioni del 68000 con i suoi 14 
modi di indirizzamento 

- le potenti istruzioni aritmetiche per 
moltiplicazione e divisione 

- programmi esemplificativi per la gestione 
delle liste e delle tavole numeriche. 

Vengono inoltre illustrate le funzioni dei 64 
piedini del 68000 IC e i supporti periferici 
interfacciabili con esso. Conclude il volume una 
breve descrizione degli altri processori 
appartenenti alla famiglia del 68000, con 
particolare riguardo per il 68008, utilizzato nei 
personal computer dell'ultima generazione. 

Pag. 256 


L. 20.000 


In un unico volume uno sguardo all'Apple 
Macintosh: lo strumento che farà salire 
vertigginosamente la vostra produttività nel 
lavoro. 

Nel libro troverete: 

- Come si può rendere più efficiente un 
calcolatore da tavolo 

- Come il MacPensiero incrementa la 
produttività 

- Che cosa sta dietro alle MacWindows 

- Come ottenere il massimo dal Mouse 

- L'uso di MacWritér, MacPaint e di tutti gli altri 
MacTooIs 

- Quale altro software è disponibile per il 
Macintosh 

- Come funziona il microprocessore 68000 

- Tutto sui drives per mini-floppy. 

Inoltre imparerete come comunicare con il 
Macintosh e come creare menù che parlino da 
soli. 

Se ne possedete un esemplare o se intendete 
acquistarne uno, questa guida costituirà il 
vostro indispensabile e sapiente amico 

Pag. 192 
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LA PRIMA VOLTA 
CON APPLE 

di R. COOK e T. HARTNELL 

Se non avete mai programmato un computer 
prima d'ora e vi piacerebbe imparare in poche 
ore, ecco il libro adatto a voi. Probabilmente già 
disporrete di gran parte, se non di tutto, del 
software che vi serve; ma vi sarete anche resi 
conto che è bene saperne un po' di più, magari 
per far colpo sugli amici, insegnare qualcosa ai 
vostri bambini o creare da soli qualche 
programma per lavoro o per gioco. Questo libro 
vi spiega come far tutto ciò in pochissimo 
tempo. All'inizio vedremo i pochi comandi che 
servono per lavorare con il disco di sistema, 
cioè per dare il via al computer. 

Il tutto avverrà sotto il vostro controllo a partire 
dalle prima pagina del primo capitolo del libro. 
Passeremo poi in rassegna i termini più 
importanti per la programmazione e alla fine, 
avrete in mano una piccola raccolta di 
programmi che vi terranno occupati con Apple 
per qualche settimana. 
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950 PRINT "SCALA.":X = 12: GOSUB 1300: GOSUB 1230 

960 P = 1:R = 1:L = 85: GOSUB 1240 

970 PRINT 'PER CHIAREZZA NON SONO INCLUSI DIESIS E’ 

980 PRINT "BEMOLLE NEL MODO DUE." 

990 GOSUB 1280 

1000 PRINT "QUESTO PERCHE' NON SAREBBERO FACILMENTE" 

1010 PRINT "DISTINGUIBILI SUL "; 

1020 PRINT ‘PENTAGRAMMA FORNITO.": GOSUB 1280 
1030 PRINT "COMUNQUE SI PUÒ TENTARE DI AGGIUNGERE" 

1040 PRINT "DIESIS 0 BEMOLLE NEL MODO UNO, MA E'" 

1050 PRINT "NECESSARIO FARLO A ORECCHIO.": GOSUB 1280 
1060 PRINT "SE AVETE UNA MELODIA LUNGA 0 RIPETITIVA" 

1070 PRINT "PUÒ' DARSI CHE SI DEBBA METTERLA SU DUE’ 

1080 PRINT "0 PIU' V1DEATE, IN QUESTO MODO:":X = 13: GOSUB 
1300: GOSUB 1230 

1090 P = 5:R = 1:L = 13: GOSUB 1240 

1100 PRINT "LA LUNGHEZZA MEDIA DELLA LINEA DI INA " 

1110 PRINT "NOTA E' QUESTIONE DI SCELTA. QUI SONO" 

1120 PRINT "USATE LINEE DI NOTA PIU' LUNGHE.*: GOSUB 1280 
1130 PRINT "ECCO IL SEGUITO DELL "UNO DEI MARINE'.* 

1140 PRINT "E COME E' IL SUO SUONO QUANDO E' ESEGUl-TO DA 
SOLO.":X =14: GOSUB 1300: GOSUB 1230 
1150 P = 5:R = 1:L = 1: GOSUB 1240: PRINT "QUANDO SI INTROD 
UCONO NOTE IN ALTO SULLA": 

1160 PRINT "SCALA, SONO PROVVISTI TAGLI ADDIZIONALI." 


1170 HCOLOR= 1: HPLOT 10,48 TO 269,48: HPLOT 10,54 TO 269, 
54: GOSUB 1280 

1180 PRINT "USANDO QUESTE TECNICHE, E QUALSIASI TEC-NICA"; 
1190 PRINT " PERSONALE, SI POSSONO CREARE INA" 

1200 PRINT "GRANDE VARIETA'SUONI." 

1210 CALL 768,13,5,2,13: CALL 768.14,5,1,13: FOR N = 1 TO 
450: NEXT : CALL 768,13.5,1,13 
1220 : GOSUB 1280: TEXT : HOME : END 
1230 HCOLDR= 1: FOR N = 0 TO 4: HPLOT 10,Y(N) TO 269,Y(N): 

NEXT : HCOIOR= 3: RETURN 
1240 GOSUB 1280: GOTO 1260 
1250 HOME : VTAB 21 

1260 HTAB 10: PRINT "CALL 768,"X","P","R","L: CALL 768,X,P 
,R,L: GOSUB 1280: RETURN 
1270 END 

1280 VTAB 24: HTAB 7: PRINT "<<RETURN PER CONTINUARE» 

GET At: IF ASC <A$) < > 13 THEN 1280 
1290 HOME : VTAB 21: RETURN 

1300 HGR : HCOLOR= 3: HPLOT 0,0 TO 279,0 TO 279,159 TO 0,1 
59 TO 0,0 

1310 SNUM = X:TNUM = PEEK (STADD ♦ SNUM * 256 - 256) 

1320 FOR N = 1 TO TNUM:CX = Z + N:Q = PEEK (STADD ♦ SNUM » 
256 - 256 4 N):CY = Z * Q / 2: 1F Q > 0 THEN HPLOT CX 
,CY 

1330 'NEXT : RETURN 
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zio del file di suoni che esso crea. Ciò 
significa che se le modifiche fatte dal¬ 
l’utente aumentano considerevolmen¬ 
te la lunghezzza del programma, è 
probabile che si debbano fare per pri¬ 
ma cosa queste modifiche: 

1. Nella linea 210 del SINTETIZZA¬ 
TORE cambiare il valore di STADD 
in 28672 

2. Nel listato del LETTORE SUONI 
cambiare l'indirizzo $315 in $70 

Questi cambiamenti daranno più 
spazio per fare modifiche, ma ridur¬ 
ranno al tempo stesso a 34 il numero 


dei suoni che si possono avere in una 
tavola dei suoni. La tavola dei suoni 
sarà adesso costruita a $7000 anziché a 
$6400. 

Una modifica che volendo si può 
provare riguarda la possibilità di intro¬ 
durre note diesis e bemolle per la sin¬ 
tesi musicale. In tal caso sarebbe ne¬ 
cessario qualche metodo per distin¬ 
guerle dalle note naturali, a evitare la 
confusione. 


Questo programma è disponibile su 
dischetto. L’elenco, i prezzi e le 
modalità d’ordine di questo e degli altri 
dischetti disponibili sono riportati nella 
rubrica Disk Service. 
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' 1985 by Nibble e Applicando 


ITlEmOR Informatico srl 

v. Togliatti 4 56030 Perignono Pi 

DISTRIBUISCE ALL INGROSSO 
IN TUTTA ITALIA 


materiali pronti a magazzino 


Macintosh ... e 

tonto software in italiono o prezzi 
unici e irripetibili. 

Apple // 

Periferiche .. 

Schede aggiuntiue ... 
Compat i b i I i <mode in italy > 
olcuni esempi : 

compatibile Ile 635.000 

disk-drive slim sokata 325.000 
doppio drive “duodisk" 865.000 
mouse completo 199.000 

stampante 80 col. I.V. 830.000 
super serial card e cavo 135.000 
doppio controller cord 66.000 
porollel card standard 66.000 
scheda 80 col.+ 64 k 166.000 
scheda 2-80 xCP/M 79 .000 
language cord 16 k 76.000 

Hard-disk 5 mb. 1.990.000 
Tutto con garanzia un anno 


Consegna immediato ovunq ue 

SOFT VARE x Apple 
A prezzi estremomente bassi sono 
disponibili oltre 150 pakage di alta 
affidabilità , tutti in sorgente, con 
allegato il monuole completo d’uso. 


FLOPPY—DISK 


Tutta la gamma Uerbatim 
Cuerex e datalife) offerti 
a prezzi imba 11ibiIi anche 
per pieco Ii quantitatioi 


listino completo e dettagliato può’ 
essere richiesto inviando 3.000 
lire in francobolli oppure ordinando 
olmeno un orticolo in contrassegno 

Per dettagli tecnici urgenti : 
TELEFONARE olio 0587-616084 


MATERIALI FORNITI CON 
GARANZIA 

SODDISFATTI 0 RIMBORSATI 

con noi i tuoi investimenti 
sor anno sempre più protetti. 

I prezzi non comprendono l‘ i.v.o. 
Apple. Duodisk. Macintosh. sono 
marchi di appiè computer ine. 
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Mille programmi 



Ordinale subito. 
Sarai fra i primi 
a riceverle. 


Stai per acquistare un personal 
computer Apple? 

Vorrai sapere che cosa puoi farci. 
Questo volume è un aiuto indispen¬ 
sabile, una guida ragionata e com¬ 
pleta di tutti i programmi disponibili 
in Italia. Prima di fare il tuo acquisto 
non puoi non consultarlo, perché 
solo se avrai a disposizione il pro¬ 
gramma o i programmi che ti inte¬ 
ressano la tua scelta non ti lascerà 
deluso. 


per te 


Hai appena acquistato un perso¬ 
nal computer Apple? 

Senza questa raccolta di program¬ 
mi non potrai mai sapere quali e 
quanti utilizzi potrai farne. 


Possiedi già da tempo un perso¬ 
nal computer Apple? 

Allora non c’è bisogno di dirti quan¬ 
to può essere prezioso questo libro: 
sai già che il tuo computer, senza 
programmi, è come un’auto senza 
benzina. E poiché non c'è limite alla 
fantasia e all'inventiva, consultando 
questa guida scoprirai utilizzi im¬ 
pensati per il tuo personal. Utilizzi 
che ti permetteranno nel lavoro, nel 
tempo libero, nel gioco o nello stu¬ 
dio, di essere sempre il più aggior¬ 
nato, il più organizzato, il più soddi¬ 
sfatto... 


Le Pagine del Software 
sono un supplemento 
semestrale di Applicando, 
il mensile per i personal 
computer Apple. 
Acquistarle singolarmente 
costa 12.000 lire. 

Per chi si abbona ad 
Applicando sono in regalo. 


seguente formula (segnare la casella di proprio interesse): 

□ 12.000 lire per ricevere l'edizione Autunno 1984 de Le Pagine del Software 

□ 50.000 lire per ricevere 10 numeri di Applicando e in regalo l'edizione Autunno 1984 
de Le pagine del Software. 


COGNOME E NOME . 

VIA. 

CAP. CITTÀ 

□ Allego assegno non trasferibile di L 

□ Allego ricevuta di versamento di L 
Corso Moniorte 39. 20122 Milano. 

o Pago fin d ora con la mia carta di credilo Bankamericard N 
Data. Firma. 


. N. 

. PR0V 

. infestato a Editronica Srl. 

sul CC postale N 19740208 intestato a Editronica Srl. 


scadenza. 


Ritagliare, compilare e 
spedire a: Editronica Srl, 
Corso Montone 39, 
20122 Milano. 





















Senza aspettare l’estate, si può fare una partita a 
volano anche col computer. Due giocatori, armati di 
racchetta, corrono avanti e indietro per il terreno di 
gioco, comandati dalle paddle. L’effetto visivo è 
davvero buono, grazie anche all’alta risoluzione. 


[DOS 3.3 
ProDOS Jflll/ 
| APPLE //t « III 
APPLE //ypm 


A volano con l’Apple 



D opo aver dato il RUM. si ricevo¬ 
no le istruzioni e si è invitati a 
introdurre i nomi dei giocatori. Il gio¬ 
catore 1 usa la paddle (0) e controlla 
l'uomo all’estrema sinistra, mentre il 
giocatore 2 usa la paddle ( 1) e control¬ 
la l’uomo all’estrema destra. 

11 computer chiederà a uno dei gio¬ 
catori di scegliere nel lancio della mo¬ 
netina. che stabilirà a chi tocca il pri¬ 
mo servizio. Il battitore viene annun- 


43 
















ciato da un messaggio e da un bip. Poi 
basta premere semplicemente il pul¬ 
sante della paddle per servire. 

Per rispondere basta mettersi in li¬ 
nea con il volano e premere il pulsante 
della paddle (tempestività e precisione 
sono tassative). 

Il programma cerca di simulare il 
volo del volano e ci arriva molto vici¬ 
no. Spesso il volano si arresterà nel 
mezzo del volo e scenderà rapidamen¬ 
te. In altre occasioni salirà tanto in alto 


da scomparire nell’orlo superiore del¬ 
lo schermo (ma non c’è da preoccupar¬ 
si, riapparirà). 

I punti possono essere segnati solo 
dal giocatore che sta servendo. Questi 
può segnare quando il suo avversario 
commette uno dei due errori possibili: 
(1) lasciar cadere a terra il volano; (2) 
mandare il volano fuori delle zone di 
gioco. Quando a commettere questi 
errori è il battitore, il servizio passa al 
suo avversario. 


Come digitare 
il programma 

Ci sono due listati da introdurre e 
salvare. La battitura del programma in 
Applesoft è semplice. Basta digitare il 
listato e salvarlo su dischetto battendo 
SA VE VOLANO. 

I dati in linguaggio macchina devo¬ 
no essere introdotti a partire da $4000 
esadecimale (16384 decimale). Com- 



LJSTATO 1 

* 


1 

REM 

********************** 

2 

REM 

* 

COLANO 

* 

3 

REM 

* 

DI STEVEN U0NG 

* 

4 

REM 

* COPYRIGHT (0 1?85 » 

5 

REM 

* 

BY APPLICANDO 4 

* 

6 

REM 

* 

MICROSPARC, INC 

* 

7 

REM 

********************** 


10 LEU EH: 17200: G0SUB 7000: GOTO 5000 
20 1F TI < >0 THEN 4 T50.1 
30 IF PEEK (PO) > IH THEN FI = 1 
40 1F PEEK (PI) > IH THEN F2 = 1 
50 RETURN 

100 CO = 4: 1F CY > 0 THEN CC = 10 
110 XB = XB + M * CX:YB = YB * CC * CY: G0SUB 20 

120 XB = 1NT (XB) :Y8 = 1NT (YB) : IF HF = 1 THEN 140 

130 IF XB < 15 AND YB < 165 THEN UF = 1 :BF = 2: GOTO 3000 
140 GOSUB 20: IF XB < 0 OR YB > 181 THEN UF = 2:BF = 1: GOTO 
3000 

150 GOTO 180 

160 IF XB > 263 AND YB < 145 THEN UF = 2:BF = 3: GOTO 3000 
170 GOSUB 20: IF XB > 27? OR YB > 181 THEN UF = 1:BF = 4: GOTO 
3000 

180 IF 01 THEN IF XB > 13? AND HF = 1 THEN CY = ABS (CY): 

H = RND (1) * 4 4 4:01 = 0: !F YB < 135 THEN YB = YB 4 

( RND (!) « 5 < 15) 

1?Q GOSUB 20: IF 02 THEN IF XB < 13? AND HF = 2 THEN CY = 

ABS (CY):H = WIO (1) * 4 * 4:02 = 0: IF YB < 135 THEN 
YB = YB * < RND (1) * 5 * 15) 

200 IF YB < 54 THEN YB = 50: HC0L0R= 0: DRAU 7 AT B1,B2:XB = 
13?: GOTO 600 


210 HCOL0R= 3: DRAU 7 AT XB.YB: GOSUB 20 

220 HC0L0R= 0: DRAU 7 AT B1,B2:B1 = XB:B2 = YB 

600 TI = 0:X = PDL (0): IF X > 177 THEN XL = XL + 8:T1 = 1: 

IF XL = > 120 THEN XL = 120:T1 = 0 
610 GOSUB 20: IF X < 77 THEN XL = XL - 8:T1 = - 1: IF XL < 

= 8 THEN XL = 8:T1 = 0 
620 IF XL = XI THEN 670 

430 X = XI 4 (4 * Tl): HC0L0R= 0: DRAU 1 AT XI,YL 

640 HC0L0R= 3: DRAU 2 AT X.YL: GOSUB 20 

450 HC0L0R= 0: DRAU 2 AT X.YL 

640 HC0L0R= 3: DRAU 1 AT XL,YL:X1 = XL 

470 IF XB > 13? THEN 800 

680 GOSUB 20: IF FI THEN GOSUB 1000 

800 TI = 0:X = PDL (1): IF X > 147 THEN XR = XR 4 8:T1 = 1: 

IF XR = > 270 THEN XR = 270:T1 = 0 
810 GOSUB 20: IF X < 87 THEN XR = XR - 8:T1 = - 1: IF XR < 

= 158 THEN XR = 158.-T1 = 0 
820 IF XR = X2 THEN 870 

830 X = X2 4 (4 » Tl): HC0L0R= 0: DRAU 4 AT X2,YL 

840 HC0L0R= 3: DRAU 5 AT X,YL: GOSUB 20 

850 HC0LQR= 0: DRAU 5 AT X,YL 

860 HC0L0R= 3: DRAU 4 AT XR,YL:X2 = XR 

870 IF XB < 13? THEN 100 

880 GOSUB 20: IF F2 THEN GOSUB 1500 

8?0 GOTO 100 

1000 FI = 0:X = 0: HC0L0R= 0: DRAU 1 AT XL.YL 
1010 HC0L0R= 3: DRAU 3 AT XL.YL: F0R L = 70 T0 40 STEP - 1 
0: 4 TL.3: NEXT 
1020 IF YB ( 100 THEN 1050 
1030 XT = XL 4 10:YT = YL 

1040 IF XB - XT < 15 AND XB - XT > - 5 THEN IF (YT - YB) < 
10 THEN HF = 1:X = 1 
1050 HCOL0R= 0: DRAU 3 AT XL.YL 

1060 HC0L0R= 3: DRAU 1 AT XL.YL 

1070 IF X THEN 2030 
1080 RETURN 

1500 F2 = 0:X = 0: HC0L0R= 0: DRAU 4 AT XR.YR 
1510 HC0L0R= 3: DRAU 6 AT XR.YR: F0R L = 70 TO 40 STEP - 1 
0: 4 TL.3: NEXT 
1520 IF YB < 100 THEN 1550 
1530 UT = XR - 10:VT = YR 

1540 IF UT - XB < 15 AND UT - XB > - 5 THEN IF ABS (UT - 
YB) < 10 THEN HF = 2:X = 1 
1550 HC0L0R= 0: DRAU 4 AT XR.YR 

1540 HC0L0R= 3: DRAU 4 AT XR.YR 

1570 IF X THEN 2000 
1580 RETURN 

2000 CY = ABS (CY) * - 1:CX = ABS (CX) « - 1:02 = ! 

2010 IF XB < 1?1 THEN GOSUB 2090 
2020 GOTO 2050 

2030 CY = ABS (CY) » - 1:CX = ABS (CX):01 = 1 

2040 IF XB ) 87 THEN GOSUB 20?0 

2050 M = RND (1) < 4 4 4 

2060 YB = RND (1) * 40 4 100 

2070 4 T RND (1) » 1?0 4 50,10 

2080 RETURN 

20?0 IF RND (1) < .5 THEN YB = RND (1) * 100 4 40:M = 30: 
RETURN 

2100 YB = RND (1) * 120 4 60:M = 20: RETURN 
3000 ON BF GOTO 3010.3040,3050,3060 
3010 IF XB ( = 8 AND YB ) 181 THEN Al = 1:A2 = 182: GOTO 3 
ORO 

3020 IF XB = >8 AND YB > 181 THEN Al = XB-.A2 = 182: GOTO 
30?0 

3040 Al = 1 :A2 = YB: GOTO 30?0 
3050 Al = 277:A2 = YB: GOTO 30?0 
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3040 IF XB = >270 AND YB > 181 THEN A! = 277:A2 =182: GOTO 
3090 

3070 1F XB < = 270 AND YB > 181 THEN Al = XB:A2 = 182: GOTO 
3090 

3080 Al = 277:A2 = YB 
3090 HC0L0R= 0: DRAUI 7 AT B1,B2 

3100 HCOLOR= 3; DRAU 7 AT A1.A2 

3110 FOR I = 1 TO 50: 4 T100.2: NEXT 

3120 FOR 1 = 1 TO 500: NEXT I 

3130 HC0L0R= 0: DRAU 7 AT A1.A2 
3140 DRAU 1 AT XI,Yl: DRAU 4 AT XR.YL 
3150 HCOLOR= 4:PP = 60: GOSUB 5070:PP = 216: GOSUB 5070 

3140 IF SF = 1 AND UF = 1 THEN SI = SI + 1 :XF = 1 : GOTO 400 

0 

3170 IF SF = 1 AND UF = 2 THEN SF = 2: GOTO 4000 

3180 IF SF = 2 AND UF = 2 THEN S2 = S2 + 1:XF = 1 : GOTO 400 

0 

3190 IF SF = 2 AND UF = 1 THEN SF = 1 
4000 IF NOT XF THEN 5000 
4010 I = 37:J = SI: IF UF = 2 THEN I = 243:J = S2 

4020 X = 41 : IF J < ) 10 THEN 4050 

4030 HC0L0R= 4: DRAU 8 AT ! - 10,X: DRAU 17 AT I.X 

4040 HCOLOR= 5: DRAU 9 AT I - 1D.X:J = 8: GOTO 4070 

4050 IF J = > 10 THEN J = J - 10 

4040 J = J * 8: HCOLOR= 4: DRAU J - 1 AT I ,X 

4070 HCOLOR= 5: DRAU J AT I.X: 4 T40,5:UF = 0:XF = 0 
4080 IF SI = 15 OR S2 = 15 THEN 8500 
5000 GOSUB 8000: FOR PA = ! TO 500: NEXT PA 
5010 A T200.10: A T50.20: IF SF = 2 THEN 5030 

5020 XB = 1 0:CX = 1:CY = - 1 :HF = !:PP = 40:P4 = 1:P5 = 8:F 

1 = 1:01 = 1 : GOTO 5040 

5030 XB = 268:CX = - 1s€Y = - 1 : HF = 2:PP = 2!6:P4 = 4:P5 = 

270:F2 = 1:02 = 1 

5040 M = RND (1) * 4 + 4:8! = 140:B2 = 80 

5050 YB = RND (1) * 4 + 168 

5040 WK = - 16288 4 SF:F3 = 0: GOTO 5100 

5070 DRAU 26 AT PP.38: RETURN 

5080 IF NOT F3 THEN RETURN 

5090 POP : GOTO 100 

5100 FOR J = 4 TO 5: HCOLOR= J: GOSUB 5070 
5110 K = 0: IF J = 5 THEN K = 3 
urni np- v 

5130 DRAU P4 AT P5.171: FOR I = 1 TO 40 4 20 » J 
5140 IF PEEK (UK) > IH THEN F3 = 1 
5150 NEXT : NEXT : GOSUB 5080 
5160 A T50,4: GOTO 5100 

7000 TEXT : HOME : FOR J = 4 TO 12 STEP 6: VTAB J: KTAB 7: FOR 
I = ! TO 28: PRINT ■*■;: NEXT I,J 
7010 FOR I = 7 TO 11: VTAB I: HTAB 4: PRINT ’*•: : KTAB 35: PRINT 
"*■: NEXT 

7020 VTAB 8: HTAB 11: PRINT 1 VOLANO ': VTAB 10: 

HTAB 14: PRINT 'DI STEVEN UONG’: VTAB 22: PRINT "(019 
85 BY APPLICANDO 4 MICROSPARC,INC. * 

7030 KB = - 16384:KR = - 16348:P0 = - 16287:P1 = - 16286 
: IH = 127 

7040 RO = 255 : RI = 255:P = 140:PL = 144 
7100 IF PEEK (768) = 201 AND PEEK (803) = 170 THEN 7160 
7110 MIN = ■201.084,208,015,032.177,000.032.248.230.138,072. 
032,183,000,201,044,240,003,076,201.222,032,177,000,032 
,248,230,104.134,003,134,001,133,000 ■ 

7120 FOR 1 = 1 TO 35: POKE I 4 747, VAL ( MID» <MU*,I * 4 - 

3.1 *4 - D): NEXT 

7130 MI» = '170.140.001.132,002,173,048,192.134,208.004.198, 

001.240,007,202,20fi,244,166,000,208,239,165,005,132,001 
,19è,002,205,241,095’ 

7140 FOR I = 1 TO 33: POKE I 4 802, VAL ( MIDI <MU$,I * 4 - 

3.1 * 4 - D): NEXT 

7150 POKE 1013,76: POKE 1014,0: POKE 1015,3 
7160 IF PEEK (233) = 44 AND PEEK (16384) = 24 THEN 7180 
7170 PRINT CHR» (4)‘BL0AD BADSHAPES": POKE 232,0: POKE 233 
,64 

7180 VTAB 20: HTAB 4: IIWERSE : PRINT "> PREMI LN TASTO PER 
COMINCIARE C: NORMAL 
7190 IF PEEK (KB) < = IM THEN 7190 
7200 POKE KR,0 : HOME 

7210 VTAB 7: DALL - 958: PRINT “NOME DEL PRIMO GIOCATORE? 

■ ; : INPUT ";N1$: IF NI* = " THEN 7210 
7220 NI» = LEFT* (NI»,7) 

7230 VTAB 10: CALL - 958: PRINT “NOME DEL SECONDO G10CAT0R 
E? ■ ; : INPUT ”:N2»: IF N2* = ” THEN 7230 
7240 N2» = LEFT» (N2»,7): IF NI» = N2» THEN A T50.50: GOTO 
7230 

7250 VTAB 13: CALL - 958: PRINT "IN CHE AfNO SIAMO (XXXX)’ 

* : : INPUT :YR»: IF YR» = " THEN 7250 


7240 

7270 

7280 

7290 

7300 

7310 

7320 

7330 

7340 

7350 

7360 

7370 

7380 

7390 

7400 

7410 

7420 

7430 

7440 

7500 

7510 

7520 

7530 

7540 

7550 

7540 

7570 

7580 

7590 

7600 

7430 

7640 

8000 

8010 

8020 

8030 

8050 

8040 

8500 

8510 

8520 

8530 

8540 

8550 

8560 

8570 

8580 

8590 

9000 

9010 

9020 

9030 

9040 

9050 

9040 

9070 

9080 

9090 

9100 

9110 

9120 

9130 

9140 

9150 

9160 

9999 


X = VAL ( LEFT» (YR»,4)> 

IF X < 1982 OR X > 9999 THEN X = 1983 
YR» = STR» (X) : HF» = N2»:TF = 2 
IF RND (1) < .5 THEN HF» = N1»:TF = 1 
VTAB 14: PRINT HF»’ (T)ESTA 0 (C)ROCE’ “: 

GET AN»: IF AN» < > “T“ AND AN» < > “C J THEN 7310 

PRINT AN»; IF AN» = “T“ THEN RF = 1 

IF AN» = ’C“ THEN RF = 2 

VTAB 14: HTAB 32: PRINT CHR» (91)' )“: 

FOR I = 1 TO 30 :RN = INT ( RND (1) * 2 ♦ 1) 

VTAB 14: HTAB 33 

IF RN = 1 THEN PRINT “TESTA! 1 ; 

IF RN = 2 THEN PRINT “CROCE!“; 

A T2 * 1,2: NEXT 

IF TF = 1 AND RF < > RN THEN SF = 2 

IF TF = 1 AND RF = RN THEN SF = 1 

IF TF = 2 AND RF < > RN THEN SF = I 

IF TF = 2 AND RF = RN THEN SF = 2 

FOR PA = 10 TO 200: A TPA,2: A T255 - PA,3: NEXT : FOR 
PA = 1 TO 250: NEXT PA 
HOME : VTAB 4 

PRINT “BENVENUTI ALLA FINALE DEL “YRi 

FLASH : PRINT “DEL TORNEO DI NIBBLETON": NORMAL : PRINT 

PRINT : PRINT Nl»“, PRENDERÀ' IL CAMPO DI": PRINT “SIN 
1STRA E USERÀ' LA PADDLE 0.“ 

PRINT : PRINT N2»“, PRENDERÀ' IL CAMPO DI’: PRINT “DES 
TRA E USERÀ' LA PADDLE 1.“ 

N» = Nlt: IF SF = 2 THEN N» = N2» 

PRINT : PRINT N»“ SERVIRÀ' PER PRIMO. . .“ 

PRINT : PRINT “BUONA FORTUNA E NON DIMENTICARTI DI 
TENERE GLI OCCHI SUL VOLANO!' 

VTAB 20: PRINT “PREMI IL PULSANTE DELLA PADDLE PER 
COMINCIARE.“ 

I = RND ( PEEK (7B) + PEEK (79) * I):I = RND ( - I) 

IF PEEK (PO) ( = IM AND PEEK (PI) < = IM THEN 7590 

HOME : HGR : POKE - 14302,0: SCALE= 1: ROT= 0 
GOSUB 9000: RETURN 

SCALE= 1: ROT= 0: HCOLOR= 1: FOR I = 185 TO 191: HPLOT 

1,1 TO 278,1: NEXT 

HCOLQR= 3: FOR I = 138 TO 141: HPLOT 1,140 TO 1,188: NEXT 


YL = 171:YR = YL:X1 = 8:XL = XI:X2 = 270:XR = X2 
DRAU ! AT XI,YL: DRAU 4 AT X2.YR 
IF MF = 0 THEN 4 T96.40: è T72.40: 4 T57.40: 4 T48.80 
: 4 T57.40: 4 T48,140:MF = 1 
RETURN 

POKE - 14301,0: HOME : IF S2 = 15 THEN 8520 
UN» = Nl»:LO» = N2»:S5 = SI:SÓ = S2: GOTO 8530 

UN» = N2»:L0t = N1»:S5 = S2:S4 = SI 

FOR I = 10 TO 100 STEP 5: 4 TUO - 1.3: 4 T50.3: 4 T10 
0 ♦ 1,3: NEXT 

VTAB 21: PRINT “IL VINCITORE DEL TORNEO E' “UN» ,| “ 
PRINT “CON IL PUNTEGGIO DI “S5“ A “S6“!“ 

VTAB 24: HTAB 1: PRINT “VOLETE GIOCARE ANCORA? <S/N)“; 

GET AN»: IF AN» = “N“ THEN 9999 
IF AN» < > “S“ THEN 8540 
RUN 

HCOLQR= 2: FOR I = 2 TO 48: HPLOT 10,1 TO 270,1: NEXT 

HCOLOR= 0: FOR I = 7 TO 23: HPLOT 100,1 TO 178,1: NEXT 

FOR I = 28 TO 44: HPLOT 19,1 TO 70,1: HPLOT 208,1 TO 2 

59,1 

HPLOT 90,1 TO 188,1: NEXT 

HCOLOR= 5: DRAU 8 AT 27,41: DRAU 8 AT 37,41 

DRAU 8 AT 233,41: DRAU 8 AT 243,41 

FOR I = 1 TO 4: DRAU VAL ( MID» (YR»,1,D) ♦ 8 AT 111 

< I * 10,20: NEXT 

HCOLOR= 7: DRAU 25 AT 59,38: DRAU 25 AT 215,38 
HCOLQR= 3 

FOR I = 1 TO 9: READ J,K 
DRAU J AT K,42: NEXT 
DATA 18,102,19,112,20,117,20,127 
DATA 21,137,22,143,23,152,24,140,18,149 
HCOLOR= 4: HPLOT 271,1 TO 9,1 TO 9,49 TO 271,49 TO 271 
,1 

HPLOT 271,0 TO 8,0 TO 8,50 TO 271,50 

HPLOT 7,0 TO 7,50 

RETURN 

TEXT : HOME : END 
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Figura 1. Dato il RUN, sullo schermo compaiono il campo da gioco, i due 
sfidanti e il tabellone segnapunti. 



Figura 2. Effettuato il sorteggio, il giocatore privilegiato dalla fortuna 
esegue il servizio. 



Figura 3.1 due sfidanti sono nel bel mezzo della partita: quello di sinistra 
ha lanciato e sta a quello di destra a dover rispondere. 
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pletata la battitura salvate i dati bat- 
tendo BSAVE BADSHAPE- 
S,A16384,L786 RETURN. 

Per avere altre istruzioni o introdur¬ 
re direttamente in memoria il codice 
macchina, fate riferimento all’articolo 
"Per chi comincia". 


0020 — 0050 Legge i pulsanti delle 
paddle. 

0100—0220 Logica di movimento del 
volano. 

0600—0680 Spostamento del giocatore 
di sinistra. 

0800—0890 Spostamento del giocatore 
di destra. Ricomincia il loop. 
1000—1080 Movimento della racchet¬ 
ta del giocatore di sinistra. Controlla 
se il volano è stato colpito. 
1500—1580 Movimento della racchet¬ 
ta del giocatore di destra. Controlla se 
il volano è stato colpito. 

2000—2100 Inverte la direzione del vo¬ 
lano. 

3000—3190 Trova la posizione finale 
del volano. Aggiorna il punteggio. 
4000—4080 Aggiorna il tabellone digi¬ 
tale del punteggio. 


5000—5160 Invita i giocatori a servire. 
7000—7040 Pagina d’intestazione. Ini- 
zializza le variabili. 

7100—7190 POKE della routine sono¬ 
ra. Carica la tavola delle figure. 
7200—7440 Riceve i nomi dei giocato¬ 
ri. Chiede l’anno. Sceglie il battitore. 
7500—7640 Presentazione del gioco. 
Pulisce lo schermo Hi—Res. 
8000—8060 Traccia il campo. Suona il 
tema d’apertura. 

8500—8590 Abbiamo il vincitore! 
9000—9160 Prepara il tabellone digita¬ 
le del punteggio. 

Per concludere... 

Il pulsante della paddle di un gioca¬ 
tore funzionerà solo quando il volano 
è dalla sua parte del campo. Questo 
soprattutto per accelerare il gioco. 


Questo programma è disponibile su 
dischetto. L'elenco, i prezzi e le 
modalità d'ordine di questo e degli altri 
dischetti disponibili sono riportati nella 
rubrica Disk Service. 

-¥ 

® 1985 by Nibbi e e Applicando 


Le routine 




Il libro si propone di avvicinare 
professionisti e hobbisti del 
computer al calcolo automati¬ 
co e alla simulazione di feno¬ 
meni e esercizi di meccanica 
e elettrotecnica a mezzo di al¬ 
goritmi in Basic. 

234 pagine, 20.000 lire. 

Come effettuare il “debug” os¬ 
sia la messa a punto dei pro¬ 
grammi e la ricerca e corre¬ 
zione degli errori. 

144 pagine, 15.000 lire. 


Scritto da un chimico, questo 
libro non si prefigge lo scopo 
di insegnare a programmare, 
ma di offrire occasioni (tratte 
dal campo della chimica) di 
programmazione, a partire dai 
listati riportati e illustrati. 

114 pagine, 14.000 lire. 


Introduzione ai principali temi 
deH’intelligenza artificiale me¬ 
diante semplici programmi in 
Basic. 136 pagine, 10.000 lire. 

j Desidero acquistare 

I □. 

□ . 

I Pagherò al postino il prezzo indicato + 1.000 lire per contributo spese postali 
□ Desidero solo ricevere il vostro catalogo generale 
Ritagliate e spedite a: 

gruppo editoriale muzzio - via makallè 73 - 35138 padova 

I nome.cognome. 

via. 

. __ — ■——■ -• - _città_. 


Routine d’aiuto alla soluzione di 
problemi che si incontrano in 
fase di progettazione. 

138 pagine, 14.000 lire. 
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DI FISICA IN BASIC □□ 
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Che parlava lo si sapeva già. Magari con voce un po’ impostata, 
ma con perfetta intonazione americana. Adesso però Macintosh 
riesce perfino a vedere, aprendo la strada a mille nuove 

possibilità che... 


Magic e MacVision 



L a possibilità di prendere un ogget¬ 
to qualsiasi, di "fotografarne" 
l’immagine per trasferirla sul video del 
Macintosh e poi intervenire come si 
vuole, a livello grafico, per ingrandir¬ 
la, rimpicciolirla, deformarla, aggiun¬ 
gerle o toglierle particolari diventa da 
oggi semplicissimo. Basta una teleca¬ 
mera da videoregistratore e l’apposito 
programma oggi in commercio anche 
in Italia. 

Le applicazioni possibili con questo 
nuovo software sono diverse, nei cam¬ 
pi più disparati. Nella grafica, per 
esempio, diventa possibile avere a vi¬ 
deo l'immagine di qualunque modello 
di abito, oppure un gioiello, o una par¬ 
ticolare acconciatura dei capelli, o un 
particolare meccanico di un qualche 
ingranaggio, per poi eseguire in tempi 
molto ristretti innumerevoli variazio¬ 
ni, alla ricerca di nuove soluzioni. 

In campo scientifico, è invece possi¬ 
bile digitalizzare delle immagini, come 
perfino i modelli di molecole comples¬ 


se, da inserire nelle relazioni scritte. 

Sul lavoro, provate a immaginare 
che aspetto avrebbero le relazioni nel¬ 
le quali fosse possibile, insieme col te¬ 
sto, disporre sulla stessa pagina anche 
dell’immagine di cui si sta parlando. 

Chi si occupa di pubblicità, invece, 
può modificare un’immagine qualun¬ 
que per realizzare layout di campagne 
pubblicitarie o di depliant, oppure 
eseguire il disegno di un particolare 
stand fieristico, con tutta una serie di 
varianti. 

Perfino nel campo della sicurezza 
innumerevoli sono le possibilità di uti¬ 
lizzo: l’immagine di una persona, per 
esempio, potrebbe essere trasmessa, 
via modem, a un altro Macintosh in¬ 
stallato a migliaia di chilometri di di¬ 
stanza. La verifica di una firma può 
avvenire con sicurezza matematica. E 
così via. 

I programmi a disposizione dell’u¬ 
tente per realizzare quanto descritto 
fin qui (ma si tratta solo di pochi esem¬ 


pi, in realta non esistono limiti alle 
applicazioni possibili) sono diversi. 
Applicando ha scelto per i suoi lettori 
solo due programmi, in quanto tutti gli 
altri, anche se magari di costo più con¬ 
tenuto, non sono professionali e, di 
conseguenza, i risultati che si ottengo¬ 
no lasciano mólto a desiderare. 
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Qui sopra: ecco come si presenta 
il menù principale di Magic. In alto 
a destra e dal basso in alto: 
l'immagine "catturata" con la 
telecamera viene trasmessa a 
video e poi modificata a proprio 
piacimento. Oppure (qui a fianco) 
inserita in un documento di 
MacWrite. 


Magic 

L'autorevole rivista americana 
MacWord lo ha definito il migliore in 
assoluto, anche se un po’ complesso da 
usare. L’immagine "catturata" per 
mezzo di una telecamera può essere 
modificata a proprio piacimento usan¬ 
do un menù direttamente controllato 
dal programma, senza cioè dover tra¬ 
sferire l’immagine in un file di Mac¬ 
Paint. Tutti i comandi vengono gestiti 
direttamente col mouse, dalla selezio¬ 


ne della messa a fuoco veloce alla revi¬ 
sione di immagini memorizzate in pre¬ 
cedenza. Una selezione di fondini è 
disponibile per le modifiche del caso. 
Un righello di alta precisione permette 
la definizione in scala dell’immagine a 
video e facilita qualunque intervento 
di modifica. 

Naturalmente è possibile salvare 
qualsiasi immagine in un file di Mac¬ 
Paint e modificarla per mezzo di que¬ 
sto programma e poi incorporarla, per 
esempio, in un documento realizzato 
con MacWrite. 

Tra le caratteristiche principali del 
programma, segnaliamo: la possibilità 
di "catturare" immagini a pieno scher¬ 
mo in meno di 36 secondi, messa a 
fuoco veloce sullo schermo del Macin¬ 
tosh a 5 fotogrammi al secondo, la pos¬ 
sibilità di creare immagini con sfondi 


La 

riproduzione 
di un 
quadro o 
il 

particolare 

di una 

banconota 

possono 

essere 

ripresi e 

poi 

modificati. 
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Uno dei risultati più semplici da 
ottenere: l’immagine viene "inserita" 
in una cornice creata con MacPaint. 

portato da L. Paolini spa, Via Ostien¬ 
se 48, Roma, telefono 06/5755006 e 
costa attorno a 1.300.000 più IVA. 

MacVision 

Nel giudizio di MacWord, questo 
programma segue a ruota Magic. An¬ 
che se meno professionale, è più sem¬ 
plice da usare, infatti viene installato 
direttamente nel programma che poi 
serve a modificare l’immagine "cattu¬ 
rata" per mezzo della telecamera. È 
preferibile usarlo con MacPaint, che 
assicura possibilità di editing maggio¬ 
ri. L’interfaccia è fornita dentro un 
contenitore da allacciare esternamen¬ 
te al computer. Il contenitore è munito 
di due manopole per la regolazione del 
contrasto e della luminosità. 

Prodotto da Koala è importato in 
Italia dalla Telav International, Via L. 
da Vinci 43, Trezzano sul Naviglio 
(Mi), telefono 02/4455741 e costa 
900.000 lire più iva, senza la telecame¬ 
ra. 


automatici, sovrapposizione "guidata" 
dei fondini, comandi dell’interfaccia 
della telecamera tutti regolabili a mez¬ 
zo mouse, procedura semplificata per 
il trasferimento dell’immagine su 
MacPaint. 

La telecamera, fornita insieme con 
il software, ha invece le seguenti carat¬ 
teristiche principali: risoluzione oriz¬ 
zontale a 550 punti, risoluzione verti¬ 
cale a 700 linee, può usare lenti da 35 
mm con un semplice adattatore, men¬ 
tre la dotazione standard prevede lenti 
da 16 mm f/1.6. 

Prodotto da Spectrum House, Ma¬ 
gic, con interfaccia e telecamera, è im- 


L’immagine emblematica riprodotta 
qui sopra esemplifica perfettamente 
le possibilità di Magic e MacVision: la 
digitalizzazione di una persona, come 
di un oggetto, sul video del computer. 



Dall'alto in basso: l'immagine 
originale viene scontornata. Se non 
basta, il corpo viene cancellato, la 
testa ruotata di 180 gradi e 
sovrapposta a una semplicissima 
caricatura. Tempo di esecuzione: 5 
minuti. 
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nuova 


MICROLINE 


La scrittura 
evoluta 


Sono trascorsi oltre 5000 anni, la comunicazione si è 
evoluta attraverso i secoli per rispondere alle 
esigenze dei vari periodi. 
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NUOVA SERIE MICROLINE 


Le nuove stampanti pL sono la risposta alle 
esigenze dei nostri tempi: supersilenziose 
compatte, leggere, continuano la tradizione 
di affidabilità delle stampanti OKI. 


r/(i * -.V »***£ 

t it tLfi' * 1 i f ijtn —— 


|i L 182 80 colonne, 120 cps 
I jlL 192 80 colonne, 160 cps 
I ìL 193136 colonne, 160 cps 




bidirezionali ottimizzate, stampa qualità 
lettera, grafica alta risoluzione, 
set di caratteri 11 + IBM, 
inseritore automatico di fogli 
singoli (opzionale), menù di 
programmazione esterno, 
carrello regolabile, nastro a 
cartuccia autoinchiostrante ^ 


rés5ggsasa&„. 


>pó£, 0 '^Pativa in,; ■ 


qu 91 it ^Z.^ ^£° a ° in° rci 
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...e tutte compatibili 

PC IBM, APPLE MA CINTOSH, 

OLIVETTI, etc. 


Il futuro presente 


Technitron s.r.l. 

Società del gruppo Dyneer Corporation 


00199 ROMA - Via A. Vivaldi, 9 
Tel. (06) 8395841-2 - 837035-6 - Telex: 680171 TECHRO I 
20094 Assago (Mi) - V.le Milanofiori, Pai. E.2 
Tel. (02) 8242112-3-4-5 - Telex: 341250 TECHMI I 










Teo Rusconi ha appena 
sfatato la leggenda 
secondo la quale i floppy disc 
sono tutti uguali 


Difatti sembrano tutti uguali finché non 
si osserva con attenzione il jacket. Qui 
termina l’uguaglianza. 

La maggior parte delle società costruttrici 
sigillano i dischi un punto qui, un punto là, 
lasciando parte dei lembi non sigillati. 

Prima o poi ai lembi accadono cose 
naturalissime: si gonfiano, si curvano, si 
raggrinziscono... in poche parole si aprono. 

Con penne, matite, unghie persino un 
ragazzino di quattro anni come Teo può 
infilarsi in quegli spazi aperti. 

Naturalmente è un danno enorme perchè 
se si inserisce qualcosa di molle e slabbrato 
nel disc-drive quest’ultimo può incepparsi; 
si può rovinare la testina e si possono 
perdere i dati. 



Questo può accadere con gli abituali 
sistemi di chiusura ma non con i dischetti 
Memorex che usa un procedimento 
esclusivo chiamato 
“Solid-Seam Bonding”. 


Con questo sistema ogni singolo 
millimetro quadrato dei lembi di tutti i dischi 
Memorex viene sigillato ermeticamente, 
rendendoli più rigidi e più resistenti. 



DISCHETTI MEMOREX 

con lembi completamente 
saldati su tutta ^ 

la superficie. 


È un sistema che consente al floppy disc 
di sostenere ogni assalto, che impedisce alla 
testina di rovinarsi e ai dati di andare perduti. 

Il che sta a dimostrare che un floppy disc 
Memorex non è uguale a tutti gli altri: è 
migliore. E il sistema di saldatura è solo un 
esempio della cura infinita con cui viene 
prodotto ogni floppy disc Memorex; sia 
esso da 8”, da 5 1/4” o il nuovo 3 1/2”. 

Questa estrema accuratezza dà la garanzia 
che ogni disco Memorex è al 100% perfetto. 

La prossima volta che acquistate un 
floppy disc - o qualche centinaio, 

- ricordate: non tutti i 
dischetti sono uguali... 

Memorex vi mette al 
riparo da qualsiasi 
inconveniente. 



è importante scegli 

BURROUGHS-MEMOREX S.P.A. 

Divisione Computer Media 
Via Ciro Menotti, 14 Tel. 02/718551 
20129 MILANO MI 

A Burroughs Company 





























Il Brillacomputer 



Applicando regala in questo numero, a tutti i suoi lettori, 
l'utilissimo fazzoletti no per pulire il video e il computer da tutte 

le impurità che a causa dell'elettricità 
elettrostatica si depositano 
sul video e sull'involucro esterno 
del vostro personal. 

Facile da usare, il fazzolettino 
è prodotto da Sedagraf sas 
Largo Re Umberto 106, Torino. 
Telefono 0117582343 















Non è facile sfruttare in pieno le qualità grafiche 
dell’Apple, ma con questo programma può riuscirci 
anche il più inesperto. E, una volta memorizzati su 
dischetto, i vostri capolavori... 


;r DÓS 3.3 

-Pili 1 

ProDOS 

pilli 

'•I APPLE /A 

pilli 

itiAPPLETTF 

pilli 


In disegno fljjl e lode 


L e figure grafiche in alta risoluzio¬ 
ne possono essere visualizzate 
sull’Apple seguendo le istruzioni per 
le tavole delle figure riportate nell’Ap¬ 
plesoft Reference Manual. Purtroppo 
questo sistema per la costruzione delle 
tavole è tedioso e si presta all'errore. 
L’APPLE ILLUSTRATORE per¬ 
mette invece di realizzare rapidamen¬ 
te complesse tavole delle figure da uti¬ 
lizzare nei propri programmi. 

Il programma è diviso in due parti 
principali. La prima sezione, EDI¬ 
TING FILE VETTORI, è usata per 
progettare ed editare singole figure. Il 
set dei vettori che descrivono la figura 
viene salvato su dischetto, e si crea 
così una "biblioteca" su dischetto com¬ 
posta di varie figure. La seconda sezio¬ 
ne, COSTRUIRE TAVOLA FIGU¬ 
RE, mette insieme le figure di questa 
biblioteca in qualsiasi combinazione, a 
formare tavole delle figure complete. 
Se si salva separatamente ogni figura, 
si può poi usarla con facilità in molte 
tavole delle figure, e si elimina così la 
necessità di ridisegnare le figure per 
ogni tavola. 

Comandi principali 

Per spiegare le varie funzioni del- 
l’APPLE ILLUSTRATORE realiz¬ 
ziamo insieme una tipica tavola delle 
figure. Questa tavola sarà il semplice 
logo APPLE. 

Fate partire il programma APPLE 
ILLUSTRATORE e scegliete sul me¬ 
nù EDITING FILE VETTORI. 
Adesso avete l’opportunità di spostare 
il cursore su qualsiasi punto di parten¬ 
za: spostatelo sul lato sinistro dello 
schermo e premete la barra spaziatri¬ 
ce. 

Tenete abbassato il tasto CTRL e 


premete il tasto I. Il blocco sul quale si 
trovava il cursore è ora tracciato e il 
cursore si è spostato in su di un qua¬ 
drato. Il lato destro dello schermo de¬ 
ve mostrare due dot isolati. 

Possiamo tracciare un blocco e spo¬ 
starci in su, a sinistra, a destra o in giù 
tenendo premuto il tasto CTRL e pre¬ 
mendo rispettivamente i tasti I,J,Ko 
M. Per spostare il cursore senza trac¬ 
ciare un blocco, premete soltanto il 
tasto di direzione senza tenere premu¬ 
to il tasto CTRL. Così si crea un vetto¬ 
re senza tracciamento. 

Tracciando i blocchi e spostando il 
cursore, abbozzate la figura desidera¬ 
ta per il logo. Questa figura sarà vista 
in alta risoluzione sul lato destro dello 
schermo sia neH’orientamento norma¬ 
le sia girata di 90 gradi. Queste figure 
sono disegnate in bianco; per vedere 
quale aspetto avranno disegnate negli 
altri colori Hi-Respremete il tasto C. 
Questo comando vi permette di vede¬ 
re, in sequenza, a mano a mano che 
schiacciate il tasto C 1, 2, 3, 4 volte, i 
quattro colori di base. 

Premendo C una quinta volta, tor¬ 
nerete al colore bianco. 

Se commettete un errore, potete 
tornare indietro e cancellare un vetto¬ 
re battendo il tasto B. Per cominciare 
da capo con lo schermo pulito, preme¬ 
te il tasto E; verranno cancellati l’inte¬ 
ra figura e i suoi vettori. 

Come ritracciare 
la figura 

Una volta che la figura del logo AP¬ 
PLE è a posto, si potrebbe salvare im¬ 
mediatamente il set di vettori che si è 
tracciato, ma è probabile che ci sia 
nella figura qualche vettore in più, non 
necessario. Dato che ogni due vettori 
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Figura 2. Dall’alto in basso. Una 
volta terminato il disegno, è bene 
ritracciarlo per risparmiare 
memoria. È anche possibile 
correggere il disegno facilmente, 
per ottenere il risultato finale voluto. 


si consuma un byte di memoria, è utile 
ridurre al minimo il numero dei vettori 
utilizzati per disegnare una figura. 
Questo permetterà inoltre al program¬ 
ma di disegnare la figura il più rapida¬ 
mente possibile. Per questo tipo di fi¬ 
gura il tracciamento deve incomincia¬ 
re dal punto di inizio. Per fare tutto 
questo possiamo ritracciare la figura 
premendo il tasto R. I vettori della 
figura vengono cancellati e i blocchi 
pieni della figura grande sono sostitui¬ 
ti da blocchi vuoti che forniscono una 
guida su cui ripassare. Spostate il cur¬ 
sore al centro della figura usando i 


tasti I, J, K e M e premete la barra 
spaziatrice. Adesso tracciate la figura, 
copiando sopra i blocchi vuoti per la 
via più breve possibile. 

Opzione vedere 

Per avere un'idea migliore dell’a¬ 
spetto che avrà la figura, premete il 
tasto V per VEDERE la figura. Ades¬ 
so, oltre a controllare il colore, potete 
cambiare la scala e la rotazione della 
figura. Dato il modo in cui l’Apple 
disegna le figure ci sono meno angoli 
di rotazione disponibili ai fattori di 
scala più piccoli. In effetti a scala I ci 
sono solo 8 orientamenti possibili. 

Si può anche spostare la figura sullo 
schermo usando i tasti I, J, K e M. 
Tenete premuti questi tasti per avere 
una rudimentale animazione. Usate il 
tasto ESC per tornare alla funzione di 
tracciamento. 

Salvataggio e carica 

Salvate il set di vettori che descrive 
la figura premendo il tasto S. Se usate 
un nome come APPLELOGO, il file 
sarà salvato come VETTORI/AP- 
PLELOGO. Per assicurarsi che il file 
dei vettori è stato salvato, premete il 
tasto D per avere il DOS e controllate 
il catalogo del dischetto premendo il 
tasto C. A questo punto si possono 
anche cancellare i file che non servono 
più, ma si noti che il programma non 
fornisce automaticamente il prefisso 
VETTORI/ usato dalle funzioni SA¬ 
VE figura e LOAD figura. 

Premendo il tasto L si caricherà una 
figura dal dischetto. Oltre a essere vi¬ 
sualizzata in alta risoluzione, la figura 
sarà anche disegnata nelle dimensioni 
ingrandite per l’uso nelle funzioni 
PLOTTING (tracciamento) e RE- 
PLOTTING (ritracciamento). Il trac¬ 
ciamento di questa figura grande avrà 
inizio alla posizione del cursore. Se la 
figura non ci starà, il programma invi¬ 
ta a spostare il cursore in una posizio¬ 
ne diversa e a riprovare. Come sempre 
si può usare la funzione ESC per tor¬ 
nare alla funzione di tracciamento. 

Tornate alla funzione di traccia¬ 
mento e cancellate lo schermo. Ripe¬ 
tete i passi precedenti per disegnare e 
salvare un'altra figura con il nome di 
FIGURA 2. 

Tavola delle figure 

Abbiamo adesso due figure salvate 
sul dischetto da combinare per fare 
una tavola delle figure. Premete il ta¬ 
sto ESC per uscire dalla funzione 


TRACCIAMENTO, tornate al menù 
principale e scegliete COSTRUIRE 
TAVOLA FIGURE premendo il ta¬ 
sto B. 

Il programma chiederà i nomi delle 
figure da inserire nella tavola. Battete 
APPLELOGO e RETURN e quel file 
di vettori sarà caricato dal dischetto. Il 
successivo file di vettori (FIGURA 2) 
che verrà specificato sarà aggiunto alla 
fine della tavola. Per controllare il ca¬ 
talogo del dischetto battete C e preme¬ 
te RETURN quando viene chiesto un 
nome. 

Una volta caricate le due figure, 
battete END e premete RETURN. Il 
programma costruirà l’intestazione 
della tavola. Sarà visualizzata la lun¬ 
ghezza totale e poi verrà chiesto un 
nome con il quale salvare la tavola. A 
meno che non decidiate di costruire 
un’altra tavola, tornate al menù prin¬ 
cipale. 

Per controllare la tavola scegliete 
VEDERE TAVOLA FIGURE, sul 
menù principale, e introducete il no¬ 
me della propria tavola quando viene 
chiesto. Si può scegliere dalla tavola 
qualsiasi figura e visualizzarla avendo 
il controllo della scala, del colore e 
della rotazione nella stessa maniera 
dell’opzione VEDERE della routine 
di EDITING FILE VETTORI. 

Caricamento 
del programma 

Per usare il programma si deve di¬ 
sporre, nella configurazione minima, 
di un Apple II con 48K e un disk drive. 
Date le dimensioni del programma lo 
si deve caricare oltre la prima pagina 
grafica in alta risoluzione. Questo vie¬ 
ne fatto con la prima linea del pro¬ 
gramma in Applesoft del listato 1. 

Copiate per prima cosa il program¬ 
ma in Applesoft e salvatelo con il no¬ 
me APPLE ILLUSTRATORE. Poi 
entrate in Monitor, battendo CAL- 
L—151, per introdurre la TAVOLA 
DELLE FIGURE visibile nel Listato 
2 (se non v i è chiara questa operazio¬ 
ne, leggetevi l'articolo Per chi comin¬ 
cia ). Salvate la tavola con il nome 
ITAVOLA in modo che il programma 
principale la possa caricare a dovere. 
Il comando è BSAVE ITAVO- 
LA,A$300.L$29. 

Adesso battete RUN. Collaudate le 
varie subroutine per vedere se funzio¬ 
nano: la tavola delle figure deve dise¬ 
gnare una croce, che fa da cursore, un 
blocco pieno che compare quando si 
traccia un punto e un blocco vuoto che 
compare quando si ridisegna la figura. 
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Listato 1 


10 REM oh*»*»»**»*#*»***»»* 

11 REM * APPLE ILLUSTRATORE * 

12 REM * DI COLIN FRENCH * 

13 REM * COPYRIGHT (C) 1985 * 

14 REM * BY APPLICANDO 4 * 

15 REM * MICROSPARC, INC * 

14 REM ********************** 

33 POKE 33,33 

180 IF PEEK (104) = 44 THEN 230 

190 POKE 103.1: POKE 104,44: POKE 14384.0 

200 PRINT CHR$ (4);'RLN APPLE ILLUSTRATORE' 

210 REM ***** IN12IALIZZAZI0NE ******************* 

220 : 

230 D$ = CKR$ (4): TEXT : HOME 
270 LI = 0 : HI = 3:L2 = 253:H2 = 9 
280 PRINT D$;"BL0AD ITAVOLA|A$300" 

290 DIM L(255) 

390 TEXT : HOME : VTAB 22: PRINT *(01985 BY APPLICMDO 4 MI 
CROSPARC, INC. *: GOTO 430 

400 ; 

410 REM ******* MENU' PRINCIPALE ********************** 

420 TEXT : HOME 
430 VTAB 3 

440 PRINT TA8( ?);■***********#*****##**#****■ 

450 PRINT TAB! 7):’* *> 

440 PRINT TAB( 7);’* APPLE ILLUSTRATORE *' 

470 PRINT TAB( 7)j"* *■; REM 24 SPA 

ZI FRA VIRGOLETTE 

480 PRINT TAB( 7);■**************************■ 

490 VTAB 10 

500 PRINT TA8( 9);'E - EDITING FILE VETTORI 1 : PRINT 

510 PRINT TAB( 9);*C - COSTRUIRE TAVOLA FIGURE": PRINT 

520 PRINT TAB( 9);*V - VEDERE TAVOLA FIGURE 1 : PRINT 

530 PRINT TAB( 9);"? - ISTRUZIONI 1 : PRINT 

540 PRINT TAB( 9);*<ESC> PER FINIRE 1 

550 VTAB 24 

540 PRINT TAB( 9)/SCEGLI: ": 

570 GET Z$ 

580 IF 2$ = "E" THEN 2000 

590 IF Z$ = ’C 1 THEN 4000 

400 IF 2$ = ’V 1 THEN 7000 

410 IF li = ■?■ THEN LOC = 1: GOTO 8000 

420 IF Z* = CHR$ (27) THEN HOME : POKE 103,1: POKE 104,8: POKE 
105,24: POKE 104,8: END 
430 GOTO 570 
700 : 

710 REM ****** INPUT MULTI-LETTERA *»##*******»#* 

720 : 

730 U$ = 11 
740 GET Z$ 

750 IF 2T = CHR* (13) THEN RETURN 

740 IF Zi = CHR$ (8) THEN 800 

770 IF LEN (W$) = LMT THEN 740 

780 IF li = THEN 740 

790 PRINT Z$;:U$ = W$ * 24: GOTO 740 

800 IF LEN <U$) = 0 THEN 740 

810 PRINT CHR$ (8):: PRINT 1 1 ; : PRINT CHR$ <8)i 

820 IF LEN (1») = 1 THEN 730 

830 14$ = LEFT$ (U$, LEN (14$) - 1): GOTO 740 

1000 : 

1010 REM ****** DI SEGNA/CANCELLA IL CURSORE ************** 

* 

1020 : 

1030 POKE 232,LI: POKE 233,HI: R0T= 0: SCALE= 1 
1040 XDRAW 1 AT XC.YC 
1050 RETURN 
1100 : 

1110 REM ****** DISEGNA/CANCELLA LE FIGURE PICCOLE ******* 

** 

1120 : 

1130 IF PEEK (2541) = 0 THEN 1170 

1140 POKE 232,L2: POKE 233,H2: ROT= 0: SCALE= 1 

1150 DRAU 1 AT 233 * INI (XS / 5),40 * INT (YS / 5) 

1140 ^07= 14: DRAU 1 AT 244 - INT (YS / 5),90 * INT (XS / 

1170 'RETURN 
1200 : 

1210 REM ****** DISEGNA/CANCELLA IL BLOCCO *************** 

* 

1220 : 

1230 POKE 232.LI : POKE 233,HI: ROT= 0: SCALE= 1 
1240 DRAU 2 AT OX,OY 


1250 RETURN 
1300 : 

1310 REM ****** POSIZIONA IL CURSORE ****************** 

1320 : 

1340 PRINT "POSIZIONA IL CURSORE NEL PUNTO DI INIZIO 1 ; 

1350 PRINT 'DEL TRACCIAMENTO,POI PREMI IMMERSE : PRINT 1 

BARRA SPAZIO 1 :: NORMAL 
1340 GET Z$: G0SU8 1000 

1370 IF Z$ = "I" THEN YC = YC - 5: IF YC < 0 THEN YC = 2 

1380 IF Z$ = 'J 1 THEN XC = XC - 5: IF XC < 0 THEN XC = 2 

1390 IF Z$ = "K 1 THEN XC = XC ♦ 5: IF XC > 219 THEN XC = 217 

1400 IF Z$ = 'M 1 THEN YC = YC + 5: IF YC > 159 THEN YC = 157 

1410 IF Z$ = 1 1 THEN RETURN 

1420 IF Z$ - ■?■ THEN LOC = 2: GOTO 8000 

1430 GOSUB 1000: GOTO 1340 

1500 : 

1510 REM **»* COWERTE IL BYTE IN STRINGA BINARIA ***** 

1520 : 

1530 B$ = 11 : IF INT <BT / 128) THEN BT = BT - 128:8$ = B$ * 

"l*s GOTO 1550 
1540 B$ = B$ * "0" 

1550 IF INT (BT / 44) THEN BT = BT - 44:B$ = B$ * "l*: GOTO 
1570 

1540 B$ = B$ ♦ "0" 

1570 IF INT (BT / 32) THEN BT = BT - 32:B$ = B$ * "l*; GOTO 
1590 

1580 6$ = B$ * "0" 

1590 IF INI (BT / 14) THEN BT = BT - !4:B$ = B$ * 1 1 1 : GOTO 
1410 

1400 B$ = B$ » "0" 

1410 IF INT (BT / 8) THEN BT=BT-8:B$ = B$* T: GOTO 1 
430 

1420 B$ = B* + ’O 1 

1430 IF INT (BT / 4) THEN BT = BT-4:B$ = B$* "1" : GOTO 1 
450 

1440 8$ = &$ * "0" 

1450 IF INT (BT / 2) THEN BT = BT - 2:B$ = B$ + "l*: GOTO 1 
470 

1440 B$ = B$ * "0 1 

1470 IF BT THEN B$ = B$ ♦ "l": GOTO 1490 
1480 8$ = B$ + 1 0’ 

1490 RETURN 

1700 : 

1710 REM ****** DISEGNA FIGURA GRANDE **************** 

1720 : 

1730 AA = AD: ROT= 0: SCALE= 1:XC = XS:YC = YS:FER = 0 
1740 BT = PEEK (AA): IF BT = 0 THEN 1910 
1750 REM -CONVERTE IN STRINGA BINAR1A- 

1740 GOSUB 1500 

1770 OX = XC:OY = YC 

1780 IF M!D$ (B$,4,l) = T THEN HCOLOR= 0: GOSUB 1200: POKE 
232,LI: POKE 233.H1: HCOLOR= 3: DRAU SH AT XC.YC 
1790 IF MI0$ (B$,7,2) = "00" THEN YC = YC - 5: IF YC < 0 THEN 
FER = 1:YC = 2: GOTO 1940 

1800 IF MID$ (B$.7,2) = "11 1 THEN XC = XC - 5: IF XC < 0 THEN 
FER = 1 :XC = 2: GOTO 1940 

1810 IF MI0$ (B$,7,2) = "01" THEN XC = XC * 5: IF XC > 219 THEN 
FER = 1:XC =217: GOTO 1940 

1820 IF M!D$ (B$,7,2) = "IO 1 THEN YC = YC * 5: IF YC > 159 THEN 
FER = 1:YC = 157: GOTO 1940 
1830 OX = XC:0Y = YC 

1840 IF MID$ <B$.3,3) = “000“ THEN 1900 
1850 IF MIDI (Bt.3.1) = ’l 1 THEN HC0L0R= 0: GOSUB 1200: POKE 
232,LI: POKE 233,HI: HCOLOR= 3: DRAU SH AT XC.YC 
1840 IF MID$ (B$,4,2) = ’OO 1 THEN YC = YC - 5: IF YC < 0 THEN 
FER = 1:YC = 2: GOTO 1940 

1870 IF MID$ <B$,4,2) = '11 1 THEN XC = XC - 5: IF XC < 0 THEN 
FER = 1 :XC = 2: GOTO 1940 

1880 IF MI0$ <B$,4,2) = "01 1 THEN XC = XC * 5: IF XC > 219 THEN 
FER = 1:XC = 217: GOTO 1940 

1890 IF MID$ (B$,4,2) = "IO 1 THEN YC = YC * 5: IF YC > 159 THEN 
FER = 1:YC = 157: GOTO 1940 
1900 AA = AA * 1: GOTO 1740 
1910 IF AA = AD THEN 1940 

1920 IF M!D$ (B*,3,3) = "000" THEN AA = AA - 1:V = 2: GOTO 
1940 
1930 V = 1 
1940 RETURN 
2000 : 

2010 REM ***** EDITING FILE VETTORI - TRACCIAMENTO ***** 

* 

2020 : 
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Funzionamento 

La prima linea del programma prov¬ 
vede al reset del byte alto del puntato¬ 
re di avvio del programma da $08 a 
$40, causando così il ricaricamento del 
programma con partenza da $4001. Lo 
spazio di memoria compreso fra la 


sommità della pagina di testo 1 ($800) 
e il fondo dello schermo HGR ($2000) 
è usato per la tavola delle figure o il file 
di vettori che si sta realizzando. La 
tavola delle figure usata dal program¬ 
ma principale è situata a partire da 
$300. Poiché si hanno due tavole delle 
figure è necessario impostare a dovere 


il puntatore d’indirizzo della tavola 
delle figure prima di disegnare una de¬ 
terminata figura, per esempio a linea 
1030 della subroutine DISEGNA- 
/CANCELLA IL CURSORE. 

I vettori della prima figura sono 
scritti in memoria con POKE comin¬ 
ciando alla locazione $A01. Questo 


2030 HC = 3:XC = 112:YC = 82: HGR 

2720 IF V = 1 THEN VKi = *00000* « VKid) 

2010 HOME : VTAB 21 

2730 IF V = 2 THEN VKi = ’00’ ♦ VKÌ(2) « VKid) 

2050 INVERSE : PR1NT 1 «EDITING FILE VETTORI * 7-1STRU2I0N 

2710 GOSUB 2800 

I ■; : NORMAL 

2750 IF V = 1 THEN V = 2: GOTO 2210 

2060 REM -DISEGNI IL CURSORE- 

2760 V = 1:(W = CA « 1: GOTO 2210 

2070 G0SUB 1000 

2800 REM - POKE DEI VETTORI- 

2080 AD = 2561:AA = AD:V = 1 

2810 BT = 0 

2090 REM -POKE DELL'INTESTAZIONE- 

2820 F0R N = 1 TO 8 

2100 POKE AD - 1,0: POKE AD - 2,1 

2830 IF MIDI (VKi.N.l) = ’0’ THEN 2850 

2110 POKE AD - 3,0: POKE AD - 1.1 

2810 BT = BT ♦ 2 ‘ (8 - N) 

2120 POKE AA.O: POKE AA « 1,0 

2850 NEXT N 

2130 REM -DISEGNA LA LINEA DI SEPARAZIONE- 

2860 POKE AA,BT: POKE AA « 1,0 

2110 HC0L0R= 3: HPL0T 221.0 T0 221,158 T0 222,158 T0 222,0 

2870 RETURN 

2150 REM -POSIZIONA IL CURS0RE- 

3000 : 

2160 G0SUB 1300 

3010 REM «»»*«* VA INDIETRO DI UNO *»**««**«»*»**«»«««« 

2170 XS = XC:YS = YC 

3020 : 

2180 VTAB 22: HTAB 1: PRINT ’B-BACKSPACE S-SAVE C 

3030 IF AA = AD AND PEEK (AA) = 0 AND V = 1 THEN 3230 

-COLORE ': 

2190 PRINT ’E-CANCELLARE L-L0AD V-VEDERE 1 

3010 REM -CANCELLA FIGURE PICC0LE- 

3050 HC0L0R= 0: GOSUB 1100 

2200 PRINT ’R-RITRACCIARE <ESC> MENU' D-D0S *; 

3060 IF V = 2 THEN BT = PEEK ((W) 

2210 REM -DISEGNA IL CURS0RE- 

3070 IF V = 1 THEN BT = PEEK (AA - 1) 

2220 G0SUB 1000:L0C = 3 

3080 REM -COPERTE IN STRINGA BINARIA- 

2230 REM -DISEGNA FIGURE PICC0LE- 

3090 GOSUB 1500 

2210 HC0L0R= HC: G0SUB 1100 

3100 IF V = 1 AND MI Di <BÌ,3,3) = ’000’ THEN V = 2-M = fiA - 

2250 REM -RICEVE COMANDO- 

! : GOTO 3060 

2260 GET Zi: G0SUB 1000:0X = XC:0Y = YC 

3110 IF V = 2 THEN Vii = MI Di (BÌ,6,l):V2t = MIDi (Bi,7,2) 

2270 HC0L0R= 0: GOSUB 1100 


2280 IF Zi = CHRi (27) THEN 100 

3120 IF V = 1 THEN Vii = MIDi (Bi,3,1):V2i = MIDi (Bi.1,2) 

2290 IF lì = ■?■ THEN 8000 


2300 IF Zi = ’8’ THEN 3000 

3130 REM -SPOSTA IL CURSORE- 

2310 IF Zi = ’E’ THEN HGR : GOTO 2010 

3110 IF V2i = ’OO’ THEN YC = YC + 5 

2320 IF Zi = ’R’ THEN SH = 3: GOSUB 1700: GOTO 2010 

3150 IF V2Ì = ’ll* THEN XC = XC ♦ 5 

2330 IF Zi = ’S’ THEN LOC = 1: GOTO 3100 

3160 IF V2i = -01’ THEN XC = XC - 5 

2310 IF Zi = ’L" THEN LOC = 5: GOTO 3600 

3170 IF V2Ì = ’10’ THEN YC = YC - 5 

2350 IF Zi = ’C* THEN 3800 

3180 REM -CANCELLA IL BL0CC0- 

2360 IF Zi = ■V THEN LOC = 7: GOTO 1200 

3190 IF Vii = ’!■ THEN HC0L0R= 0:0X = XC:0Y = YC: GOSUB 120 

2370 IF Zi = "D* THEN LOC = 6: GOTO 3900 

0 

2380 REM -SPOSTAMENTI CURSORE/TRACCIAMENT0- 

3200 REM -CANCELLA IL VETTORE- 

2390 IF Zi = ■!■ THEN GOSUB 2500: GOSUB 2620:V1Ì = ’0’: GOTO 

3210 IF V = 2 THEN V = 1 : POKE AA.O: GOTO 3230 

2700 

3220 V = 2:AA = AA - 1:BT = PEEK (M): GOSUB 1500:VKt(l) = MIDi 

2100 IF Zi = ’J’ THEN GOSUB 2530:Vli = ’0’: GOTO 2700 

(Bi,6,3):VKÌ = ’OOOOO’ * VKid): GOSUB 2800 

2110 IF Zi = ’K’ THEN GOSUB 2560:VU = ’0’: GOTO 2700 

3230 GOTO 2210 

2120 IF Zi = ’M’ THEN GOSUB 2590:V1Ì = ’0*: GOTO 2700 

3100 : 

2130 IF Zi = CHRi (9) THEN GOSUB 2500:VU = T: HC010R= 3 

3110 REM *«««« SALVA FILE VETTORI «mmmmm**»»*» 

: GOSUB 1200: GOTO 2700 

3120 : 

2110 IF Zi = CHRi (10) THEN GOSUB 2530:V11 = "1 * : HC0L0R= 

3130 IF AA = AD AND PEEK (AA) = 0 THEN 2210 

3: GOSUB 1200: GOTO 2700 

3110 VTAB 22: HTAB 1 : PRINT ’ (ESC) PER INTERROMPERE 

2150 IF Zi = CHRi (11) THEN GOSUB 2560:V11 = M": HC0L0R= 


3: GOSUB 1200: GOTO 2700 

3150 PRINT ’NtME FILE VETTORI? VETTORI/ 

2160 IF Zi = CHRi (13) THEN GOSUB 2590:Vlt = M": HC0L0R= 

3160 PRINT ’ REM 

3: GOSUB 1200: GOTO 2700 

39 SPA21 FRA VIRGOLETTE 

2170 GOTO 2210 

3170 VTAB 23: HTAB 28:LMT = 22: GOSUB 700 

2500 REM -VETTORE IN SU- 

3180 IF Vi = ’’ OR Ufi = CHRi (27) THEN 2180 

2510 YC = YC - 5: IF YC < 0 THEN YC = 2: POP : GOTO 2210 

3190 IF Ui = *?’ THEN 8000 

2520 V2i = ’00’: RETURN 

3500 'VTAB 22: HTAB 39: PRINT : 0NERR GOTO 5000 

2530 REM -VETTORE A SINISTRA- 

3510 PRINT Di ;’BSAVE VETTORI/’:Ut; *,A2561,L’;AA - AD * 2 

2510 XC = XC - 5: IF XC < 0 THEN XC = 2: POP : GOTO 2210 

3520 POKE 216,0: GOTO 2180 

2550 V2i = ■11 1 : RETURN 

3600 : 

2560 REM -VETTORE A DESTRA- 

3610 REM «««»* CARICA FILE VETTORI «**»**«»*«**««««* 

2570 XC = XC ♦ 5: IF XC ) 219 THEN XC = 217: POP : GOTO 2210 

3620 : 

2580 V2i = ‘01’: RETURN 

3630 VTAB 22: HTAB 1 : PRINT * (ESO PER INTERROMPERE 

2590 REM -VETTORE IN GIU'- 


2600 YC = YC « 5: IF YC > 159 THEN YC = 157: POP : GOTO 2210 

3610 PRINT "NOME FILE VETTORI? VETTORI/ 

2610 V2i = ‘IO 1 : RETURN 

3650 PRINT ’ REM 

2620 REM - CONTROLLA SE IN SU SENZA TRACCIAMENTO- 

39 SPAZI FRA VIRGOLETTE 

2630 IF V = 1 THEN 2660 

3660 VTAB 23: HTAB 28:LMT = 22: GOSUB 700 

2610 IF VKid) < ) ■000’ THEN VKi = 1 00000’ « VKi(l): GOSUB 

3670 IF Vi = ’’ OR Vi = CHRi (27) THEN 2180 

2800:AA = AA ♦ 1:V = 1 : GOTO 2660 

3680 IF Vi = *?’ THEN 8000 

2650 VKi = "00011’ « VKid): GOSUB 2800:AA = AA * 1:VKÌ = ’00 

3690 VTAB 22: HTAB 39: PRINT : 0NERR GOTO 5000 

001000’: GOSUB 2800:AA = AA * 1:V = 1 : POP : GOTO 2210 

3700 PRINT Di :"BL0AD VETTORI/’ il»;’ .A2561’: POKE 216,0 

2660 RETURN 

3710 HGR : HC0LOR= 3: HPL0T 221,0 TO 221,158 T0 222,158 TO 2 

2700 REM -PREDISPONE VETTORI DI CUI FARE IL P0K£- 

22,0 

2710 VKKV) = Vii * V2i 
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concede posto a sufficienza per l’inte¬ 
stazione di una tavola delle figure 
comprendente 255 figure e spazio per 
oltre 11.000 vettori. 

Il programma 

Ci sono alcune sezioni interessanti 
del programma che vorremmo mette¬ 
re in evidenza.ma prima di esaminarle 
potrebbe essere utile una rassegna ge¬ 


nerale del programma. Il programma 
principale è composto delle seguenti 
sezioni: 

10-290 Testata del programma e 
inizializzazione; 400—630 Menù prin¬ 
cipale; 700-830 Input multi—lettera; 
1000-1050 Disegna/cancella il curso¬ 
re; 1100-1170 Disegna/Cancella le fi¬ 
gure piccole; 1200—1250 Disegna- 
/Cancella il blocco; 1300-1430 Posi¬ 
ziona il cursore; 1500-1690 Converte 


il byte in stringa binaria; 1700—1940 
Disegna la figura grande; 2000—2870 
Funzione tracciamento; 3000—3230 
Torna indietro di uno; 3400—3520 Sal¬ 
va il file di vettori ; 3600—3780 Carica il 
file di vettori; 3900—4110 Comandi 
DOS; 4200—4550 Vedere la figura; 
5000—5160 Gestione errori dischetto; 
6000—6530 Costruisce la tavola delle 
figure; 7000-7550 Vedere la tavola 
delle figure; 8000—9460 Istruzioni. 


3720 SH = 2: GOSUB 1700 
3730 IF FED = 0 THEN 2180 

3710 HOME ; GOSUB 1000; VTAB 22; PRIMI 'NON CI STA' COMINCIA 
NDO DA QUELLA POSI- ZI ONE’; 

3750 PR1NT ■ DEL CURSORE. CAMBIA POSIZIONE/ 

3755 HTAB 13; PRINT "(PREMI <RETURN>); 

3740 GEI Zi: HOME ; VTAB 21: IMMERSE ; PRINT 1 «EDITING FILE 
VETTORI * ^-ISTRUZIONI NORMAL ; IF Zi = CHRi (27 
) THEN 2180 

3770 IF Zi = V THEN 8000 

3780 GOSUB 1300:XS = XC;YS = YC: GOTO 3710 

3800 : 

3810 REM ***** WIBIA IL COLORE ********************* 

3820 : 

3830 HC = HC + 1 : IF HC > 6 THEN HC = 1 
3840 IF HC = 4 THEN HC = 5 
3850 GOTO 2210 
3900 ; 

3910 REM ******* COtWNDI DOS ******************* 

3920 ; 

3930 HOME ; VTAB 21; IfWERSE ; PRINT 1 «EDITING FILE VETTORI 
* 2-ISTRUZIONI NORMAL 
3940 PRINT * COMANDI DOS; C-CATALOG ■; 

3950 PRINT TAB( 24);'D-CANCELLARE" 

3960 PRINT TAB< 14)/(ESC) PRECEDENTE 

3970 GET Zi: IF Zi = CHRi (27) THEN POKE - 16304,0: GOTO 
2180 

3980 IF 2$ = ■?■ THEN 8000 

3990 IF Zi = ■C" THEN 4020 

4000 IF ZI = ’D' THEN 4060 

4010 GOTO 3970 

4020 TEXT : POKE 35,20: VTAB 1: HOME : PRINT 
4030 PRINT W/CATALQG 1 
4040 POKE 35.24: VTAB 24; HTAB 33 
4050 GOTO 3970 

4060 VTAB 22: HTAB 1: PRINT * (ESC) PER INTERROMPERE 

O 

4070 PRINT 'FILE DA CANCELLARE? 

* * : VTAB 23 ; KTAB 22 

4080 LMT = 30: GOSUB 700: IF Ui = " ÓR Ui = CHRi (27) THEN 
3930 

4090 VTAB 22: HTAB 39: PRINT : ONERR GOTO 5000 
4100 PRINT Di/DELETE 1 ;U1 
4110 POKE 216,0: GOTO 3930 
4200 : 

4210 REM ******* VEDERE FIGURA ********************* 

4220 : 

4230 HGR : VTAB 22: HTAB 1 

4240 X = 140:Y = 80: POKE 232,L2: POKE 233,H2 

4250 CC = 3: HC0L0R= CC 

4260 RR = 0: R0T= RR 

4270 SS = 1 : SCALE= SS 

4280 PRINT • •: REM 3 

? SPAZI FRA VIRGOLETTE 

4290 PRINT ‘ C - COLOREO ) R - ROTAZIONE (0 ) * 

4300 PRINT ‘ S - SCALA (1 ) (ESC) PRECEDENTE ■; 

4310 HC0L0R= CC: DRAU 1 AT X,Y 
4320 GET Z$: HC0L0R= 0: DRAM 1 AT X,Y 
4330 IF Z$ = ■?■ THEN 8000 
4340 IF Zi < > CHRi (27) THEN 4370 
4350 HGR : HC0L0R= 3: HPL0T 221,0 T0 221,158 T0 222,158 TO 2 
22,0 

4360 SH = 2: GOSUB 1700: GOTO 2180 

4370 IF Zi ( > •C" THEN 4430 

4380 CC = CC + 1 : IF CC > <6 THEN CC = 1 

4390 IF CC = 4 THEN CC = 5 

4400 VTAB 23: HTAB 13: PRINT 1 •; 

4410 HTAB 13: PRINT CC;: VTAB 24: HTAB 40 
4420 GOTO 4310 


4430 IF Zi < > 'S' THEN 4470 

4440 SS = SS ♦ 1: IF SS ) 10 THEN SS = 1 

4450 SCALE= SS: VTAB 24: HTAB 13: PRINT ’ "; 

4460 HTAB 13: PRINT SS;: HTAB 40: GOTO 4310 
4470 IF Zi ( > "R‘ THEN 4510 
4480 RR = RR * 1: IF RR > 63 THEN RR = 0 
4490 R0T= RR: VTAB 23: HTAB 35: PRINT 1 "; 

4500 HTAB 35: PRINT RR;: 'VTAB 24: HTAB 40: GOTO 4310 
4510 IF Zi = T THEN Y = Y - 5: IF Y ( 0 THEN Y = Y ♦ 159 

4520 IF Zi = 'J" THEN X = X - 5: IF X ( 0 THEN X = X •* 279 

4530 IF Zi = 'K' THEN X = X + 5: IF X ) 279 THEN X = X - 279 

4540 IF Zi = "M" THEN Y = Y * 5: IF Y > 159 THEN Y = Y - 159 

4550 GOTO 4310 
5000 : 

5010 REM ****** GESTIONE ERRORI DEL DISCO ************* 

5020 : 

5030 ER = PEEK (222): IF L0C = 8 OR L0C = 9 THEN POKE 35,24 
5040 VTAB 22: KTAB 1 

5050 PRINT * •: REM 3 

9 SPAZI FRA VIRGOLETTE 

5060 PRINT 1 *: REM 3 

9 SPAZI FRA VIRGOLETTE 

5070 PRINT 1 ■;: REM 

39 SPAZI FRA VIRGOLETTE 

5090 IF ER = 6 THEN PRINT * IL FILE NON ESISTE SU QUESTO DI 
SCO/: GOTO 5150 

5100 IF ER = 9 THEN PRINT ’ NON C'E' SPAZIO SU QUESTO DISCO 
/: GOTO 5150 

5110 IF ER = 10 THEN PRINT 1 IL FILE E' PROTETTO/: GOTO 51 
50 

5120 IF ER = 11 THEN PRINT 1 NON E' UN NOME DI FILE VALIDO, 

■: GOTO 5150 

5130 PRINT -ERRORE NO/;ER; 

5140 PRINT 1 ALLA LINEA NO/; PEEK (218) ♦ PEEK (219) * 256 
: END 

5150 PRINT 1 (PREMI (RETURN» * : : GET Zi 
5160 0N L0C GOTO 400,2040,2180,3440,3630,3930,4500,6040,6430 
,7000,7190 
6000 ; 

6010 REM ****** COSTRUISCE TAVOLA DELLE FIGURE *********** 
**** 

6020 : 

6030 AD = 2561:AA = AD :SNLM = 1;TL = 0 
6040 TEXT : HOME : VTAB 21 

6050 INVERSE : PRINT 1 «COSTRUIRE TAVOLA FIGURE* 2-ISTRUZI0N 
I " ; : NORMAL 

6060 PRINT 'BATTI: END (RETURN) PER FINIRE' 

6070 PRINT * C (RETUm) PER IL CATALOGO’ 

6080 PRINT ' (ESCXRETLRN) PER INTERROMPERE'; 

6090 REM -IMPOSTA FINESTRA TESTO- 
6100 POKE 35,20 

6110 HOME 

6111 PRINT : PRINT 'N)U0VA TAVOLA DELLE FIGURE' 

6112 PRINT ’TJAVOLA DELLE FIGURE ESISTENTE 

6113 GET Vi: PRINT Ui: IF Ui = 'V THEN GOTO 9500 
6120 PRINT 'NOME DELLA FIGURA ';SNUM;": VETTORI/'; 

6130 LMT = 22: GOSUB 700 

6140 IF Ui = '" OR Vi = CHRi (27) THEN PRINT : GOTO 6500 
6150 IF Ui = ■?' THEN POKE 35,24:L0C = 8: GOTO 8000 

6160 IF Ui = 'C THEN PRINT : PRINT Dij'CATALOG': PRINT : GOTO 

6120 

6170 IF Ui = 'END' THEN 6270 
6180 LOC = 8: ONERR GOTO 5000 

6190 PRINT : PRINT Dij'BLOAD VETTORI/’ ;UÌ;' ,A';AA: POKE 216, 

0 

6200 L(SNUM) = PEEK ( - 21920) * PEEK ( - 21919) * 256 
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struttura.’ornoo portafoglio titoli» 

3** s £!SiZ£ì 

ss-V-S" - 

un tacile corso di Pascal. 


► 



ssisgsrs's 

portatile. W'M'ade obbligazioni', 
stato. cartelletondiari^^. ^ 
l'Apple vi amia a dii raBo; nusci- 
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Multi-get per l’input 

L’impiego del comando GET del- 
l’Applesoft per l’immissione di infor¬ 
mazioni ha molti vantaggi quando si 
cerca di realizzare un programma a 
prova di bomba. Ci sono però circo¬ 
stanze nelle quali è richiesto come in¬ 
put più di un unico carattere. Questo 
ha portato alla realizzazione della su¬ 
broutine di input multi—lettera. Dopo 
aver chiesto informazioni all'utente, il 
programma principale imposta la va¬ 
riabile LMT sulla lunghezza massima 
della stringa di input che sarà permes¬ 
sa e salta a questa routine. La subrou¬ 
tine di input sostanzialmente riceve 
con GET un carattere alla volta e lo 
aggiunge alla variabile stringa di input 
W$. Si possono fare controlli per in¬ 
trappolare qualsiasi carattere indesi¬ 
derato. Per esempio la linea 780 non 
permette l'accettazione di virgole. Per 
consentire il cambiamento della strin¬ 
ga di input la routine intrappola il tasto 
di freccia indietro e modifica in con¬ 
formità il display e la stringa. Dopo il 
ritorno al programma principale, W$ 
conserva l’input dell’utente. 

Tracciamento 

La funzione TRACCIAMENTO 
(PLOTTING) ha inizio con una sem¬ 
plice inizializzazione dei vettori, dello 
schermo Hi-Res e della finestra di 
testo, seguita da salti alle altre varie 
funzioni di EDITING FILE DI VET¬ 
TORI. Viene poi la parte più impor¬ 
tante della funzione: la scrittura in me¬ 
moria (POKE) dei vettori. Si è deciso 
di avere solo due vettori per byte, in 
quanto è raro che si possano far stare 
tre vettori in un unico byte, e in questo 
modo si semplifica considerevolmente 
il programma. Il programma determi¬ 
na quale vettore è stato introdotto, 
traccia il blocco nella figura grande se 
si tratta di un vettore di tipo traccia¬ 
mento, cambia le coordinate del cur¬ 
sore in modo che corrispondano alla 
direzione desiderata e infine fa il poke 
nella locazione di memoria opportu¬ 
na. 

La sola eccezione a questa procedu¬ 
ra è il vettore in su senza tracciamento. 
Se si tratta del secondo vettore di un 
byte la routine di disegno in Applesoft 
lo ignorerà e salterà al byte successivo. 
Se si tratta del primo vettore e il secon¬ 
do vettore è qualunque cosa che non 
sia un altro vettore in su senza traccia¬ 
mento tutto funziona a dovere. Invece 
se entrambi i vettori fossero del tipo in 
su senza tracciamento la routine in 


Impiego della memoria 


$FFFF - 

DOS, Applesoft e Monitor 

$9600 - 

Programma principale, stringhe e variabili 

$4000 - 

Pagina 1 alta risoluzione 

$2000 - 

Vettori 

$0A01 - 

Intestazione tavola delle figure utente 

$0800 - 

Pagina di testo 1 

$0400 - 

Tavola delle figure programma 

$0300 - 

Per uso del computer — puntatori, ecc. 

$0000 - 




Figura 3. Ecco come si presenta ii logo APPLE disegnato con APPLE 
ILLUSTRATORE, ingrandito 3 volte, ruotato di 90 gradi e nel controllo di una 
visualizzazione nei colori fondamentali dell’Apple. 


Applesoft interpreterebbe questo fat¬ 
to come fine della figura e smettereb¬ 
be completamente di disegnare. Il co¬ 
dice da linea 2620 a linea 2660 control¬ 
la se ci siano queste situazioni anomale 
e le corregge. Se il vettore in su senza 
tracciamento è il secondo, viene sem¬ 
plicemente spostato in modo che di¬ 
venti il primo vettore del byte successi¬ 
vo. Se a un vettore in su senza traccia¬ 
mento se ne fa seguire un altro, il pro¬ 
gramma aggiunge un vettore per fare 
un passo a sinistra, fa il movimento in 
su senza tracciamento e poi torna sulla 


destra. Tutto questo avviene a nostra 
insaputa, ma se torniamo indietro ol¬ 
trepassando un paio di vettori in su 
senza tracciamento, lo scarto a sinistra 
diventa evidente. 

Lungo tutto il corso del programma, 
alla variabile LOC vengono assegnati 
valori differenti. Essi indicano la posi¬ 
zione dell’utente nel programma e 
pertanto quale funzione si sta usando. 
Queste informazioni sono utilizzate da 
due sezioni del programma, le funzio¬ 
ni GESTIONE ERRORI DISCHET¬ 
TO e ISTRUZIONI, per far tornare 
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6210 

«20 

«30 

<240 


«50 

4240 

4270 

4280 

4290 

4300 

4310 

4320 

4330 

4340 

4350 

4340 

4370 

4380 

4390 

4400 

4410 

4420 

4430 

4440 

4450 

4440 

4470 

4480 

4490 

4500 

4510 

4520 

4530 

7000 

7010 

7020 

7030 

7040 

7050 

7040 

7070 

7080 

7090 

7100 

7110 

7120 

7130 

7140 

7150 

7140 

7170 

7180 

7190 

7200 

7210 

7220 

7230 

7240 

7250 

7240 

7270 

7280 

7290 

7300 

7310 

7320 

7330 

7340 

7350 

7340 

7370 

7380 

7390 

7400 

7410 

7420 

7430 

7440 

7450 


AA = AA * L(SNUM) 
SNUh = SNUM + 1 


1F SNUM < 254 THEN 4120 

PRINT : PR1NT "QUESTO E' IL NUMERO MASSIMO 01 FIGURE 
CHE SI POSSONO AVERE IN UNA TAVOLA. FINE TAVOLA 0 
INTERRUZIONE? (F/l) GET Zi 
IF Zi = ’F" THEN 4270 
GOTO 4500 

REM -POKE INTESTAZIONE DELLA TAVOLA- 
SNlfl = SNUM - 1 :TL = 0: IF AA = AD THEN 4500 
FOR N = 1 TO SNUM 
TL = TL + L(N> 

NEXT N 


TTL = TL * SNUM « 2 ♦ 2:TL = TTL 
FOR N = SNUM TO 1 STEP - 1 
TL = TL - L<N) 

HB = INT (TL / 254) 

L8 = TL - H8 * 254 
POKE AD - (SNUM - N) * 2 - 1,HB 

POKE AD - (SNUM - N) * 2 - 2,LB 

NEXT N 

POKE AD - SNUM * 2 - 1,0 

POKE AD - SNUM * 2 - 2,SNUM 

PRINT : PRINT "LA TAVOLA E' ";TTL: * BYTE DI LUNGHEZZA." 


PRINT "NOME DELLA TAVOLA? TAVOLA/" ; 

LMT = 22: G0SU8 700 

IF Ni = "" OR Gli = CHI» (2?) THEN PRINT ; GOTO 4500 
IF Ui = "?" THEN LOC = 9: GOTO 8000 
LOC = 9: ONERR GOTO 4320 

PRINT : PRINT Di;"BSAVE TAVOLA/";Wi;",A";AD - SNUM « 2 - 
2;" ,L";TTL 
POKE 214,0 

PRINT "UN'ALTRA TAVOLA? (S/N) ";: GET Zi 
IF Zi = "S" THEN SNUM = IsAA = AD: GOTO 4110 
POKE 35.24 
GOTO 400 


'REM ««»«»» VEDERE TAVOLA FIGURE ìhiiiiiiiìiihi 

'HOME : VTAB 21: HGR :LOC = 10 
INVERSE : PRINT ‘ «VEDERE TAVOLA FIGURE» ?-ISTRUZIDN 
I ":: NORMAL 

PRINT "BATTI (ESC) (RETURN) PER INTERROMPERE" 

PRINT "NOME DELLA TAVOLA? TAVOLA'" ; 

LMT = 22: GOSUB 700 

IF Ui = "* OR Ui = CHRi (27) THEN 400 
IF Ui = "?" THEN 8000 
VTAB 23: PRINT 
ONERR GOTO 5000 

PRINT Dl:"BLOAD TAVOLA/";U1;",A 2050" 

POKE 214,0 

POKE 232,2: POKE 233,8 
SNUM = PEEK (2050) 

LOC = 11 

CC = 3: HCOLOR= CC:RR = 0: ROT= RR:SS = 1: SCALE= SS 
X = 140:Y = 80 :NN = 1 
HOME : VTAB 21 

INVERSE : PRINT " «VEDERE TAVOLA FIGURE» 7-ISTRU210N 
I ":: NORMAL 

PRINT "(ESC) QUANDO AVETE FINITO’ 

PRINT "N-UMERO TAVOLA (1 ) S-CALA (1 )* 

PRINT ’C-AMBIA COLORE (3 ) R-0TAZ10NE (0 )■; 

HCOLOR= CC: ORALI NN AT X,Y 
GET li 

IF Zi = CHRi (27) THEN 400 
IF 2$ = "?" THEN 8000 
HCOLOR= 0: DRAU KN AT X,Y 
IF Zi < > "N" THEN 7340 
HI = FN « 1: IF NN > SNUN THEN ffl = 1 
VTAB 23: HTAB 17: PRINT " ": 

HTAB 17: PRINT NM;: VTAB 24: HTAB 40 
GOTO 7240 

IF li ( > "S" THEN 7390 
SS = SS « 1: IF SS > 10 THEN SS = ! 

VTAB 23: HTAB 37: PRINT " "; 

HTAB 37: PRINT SS:: VTAB 24: HTAB 40 
SCALE= SS: GOTO 7240 
IF Zi ( ) "R" THEN 7440 
RR = RR + 1 : IF RR ) 43 THEN RR = 0 
VTAB 24: HTAB 37: PRINT " "; 

HTAB 37: PRINT RR:: HTAB 40 
ROT= RR: GOTO 7240 
IF li < > "C" THEN 7500 
CC = CC + 1 : IF CC ) 4 THEN CC = 1 


IF CC = 4 THEN CC = 5 
VTAB 24: HTAB 17: PRINT " • 
HTAB 17: PRINT CC;: HTAB 40 
GOTO 7240 

REM -SPOSTA LA F1GURA- 


IF li = "I" THEN Y = 
IF li = "J" THEN X = 
IF Zi = "K" THEN X = 
IF li = ’M" THEN Y = 
GOTO 7240 


5: IF Y ( 0 THEN Y = 159 
5: IF X ( 0 THEN X = 279 
5: IF X > 279 THEN X = 0 
5: IF Y ) 159 THEN Y = 0 


7440 
7470 
7480 
7490 
7500 
7510 
7520 
7530 
7540 
7550 
8000 

8010 REM ««««»» ISTRUZIONI ««*»»*««»»»»««««»««« 

8020 : 

8030 TEXT : HOME 

8040 IF LOC = 1 THEN 8090 

8050 ON LOC GOSUB 8300,8400,8400,8990,8990,9150,9150,9320,93 

20,9320,9320 ’ ’ ’ 

8040 VTAB 24: INVERSE : PRINT "(ESO PRECEDENTE, 'M' PER CO 
NTINUARE ":: NORMAL 

8070 GET li: IF Zi = CHR* (27) THEN 8230 
8080 IF Zi ( > "M" THEN 8070 
8090 FOR N = 1 TO 5 

8100 IF N ( ) 2 AND N < ) 5 THEN 8150 
8110 HOME : VTAB 10 

8120 IF N = 2 THEN PRINT "* SE210NE UNO: EDITING FILE VETTO 

RI *": GOTO 8140 

8130 PRINT "« SEZIONE DUE: COSTRUIRE TAVOLA FIGURE «" 

8140 FOR D = 1 TO 2500: NEXT D 

8150 HOME : ON N GOSUB 8300,8400,8990,9150,9320 

8140 VTAB 24 

8170 IF N < ) 5 THEN HTAB 1: INVERSE : PRINT "(ESC) PRECED 
ENTE, 'M' PER CONTINUARE ":: NORMAL 
8180 IF N = 5 THEN HTAB 2: INVERSE : PRINT "(ESC) PRECEDENT 
E, 'R' PER RIPETERE ";: NORMAL 
8190 GET Zi: IF ZI = CHRi (27) THEN 8230 
8200 IF N ( > 5 AND Zi ( ) "M" THEN 8190 
8210 IF N = 5 AND Zi ( ) "R" THEN 8190 
8220 NEXT N: GOTO 8090 
8230 HOME i POKE - 14304,0 

8240 IF LOC = 3 OR LOC = 4 OR LOC = 5 OR LOC = 7 THEN INVERSE 
: VTAB 21: PRINT " «EDITING FILE VETTORI» 7-ISTRUZIONI 
"; : NORMAL 

ON LOC GOTO 400,2040,2180,3400,3400,3900,4200,4040,4040 
,7000,7190 
REM -PAGINA UNG- 

PRINT : PRINT TAB( 8),■"*«« APPLE ILLUSTRATORE *«*": PRINT 

PRINT " QUESTO PROGRAM DI UTILITÀ' GRAFICA" 

PRINT "FACILITA LA COSTRUZIONE DI COMPLESSE TA-"; 

PRINT "VOLE DELLE FIGURE DA USARE NEI PROPRI PROGRAMM 


8250 

8300 

8310 

8320 

8330 

8340 

8350 

8340 

8370 

8380 

8390 

8400 

8410 

8420 

8430 

8440 

8450 

8440 

8470 

8480 

8490 

8500 

8510 

8520 

8530 


I, 


PRINT " LA SEZIONE 1 'EDITING FILE VETTORI' E'": 

PRINT "USATA PER PROGETTARE LE FIGURE. IL SET * 

PRINT "DI VETTORI CHE DESCRIVE LA FIGURA VIENE" 

PRINT "SALVATO SU DISCO, CREtffflO UNA LIBRERIA DI F1GUR 
E.": PRINT 

PRINT " LA SEZIONE 2 'COSTRUIRE TAVOLA FIGURE'"; 

PRINT "COMBINA FIGURE DI QUESTA LIBRERIA IN UNA"; 

PRINT "TAVOLA DELLE FIGURE FINITA.": PRINT 
PRINT " PER ALTRE INFORMAZIONI SULLE TAVOLE 
PRINT "DELLE FIGURE E SUL MODO DI USARLE VEDERE": 

PRINT "LE PAGINE 91-100 DELL'APPLESOFT MANUAL." 

VTAB 24: INVERSE : PRINT "(ESC) PRECEDENTE, 'M' PER CO 
NTINUARE ";: NORMAL 

GET 21: IF Zi = CHRi (27) THEN POP : GOTO 8230 
IF Zi ( > "M" THEN 8440 

HOME : VTAB 3: PRINT " NELLA MAGGIOR PARTE DELLE SE210 
NI DEL ": 

PRINT "PROGRAMMA SI PUÒ' USCIRE DALLA FUNZIONE 
PRINT "CHE SI STA USANDO PREMENDO (ESC). NELLE 
PRINT "SEZIONI IN CUI E' PREVISTA L'IMMISSIONE 
PRINT "DI UNA PAROLA, COME IL NOME DI UN FILE," 

PRINT "PER USCIRE OCCORRE BATTERE (ESC-RETURN).": PRINT 


8540 PRINT * SI POSSONO CONSULTARE LE ISTRUZIONI DA"; 
8550 PRINT "QUALSIASI PUNTO DEL PROGRAMMA BATTENDO" 

8540 PRINT "'?', E PREMENDO (RETURN) SE OCCORRE.": PRINT 


PRINT 


8570 PRINT " QUANTO SEGUE E' UNA DESCRIZIONE DI" 

8580 PRINT "CIASCUNA FUNZIONE NELLE VARIE SEZIONI." 

8590 RETURN 

8400 REM -PAGINA DUE- 

8410 PRINT "TRACCIAMENTO:": PRINT 

8420 PRINT " IL CURSORE PUÒ' ESSERE SPOSTATO IN " 

8430 PRINT "QUALUNQUE PUNTO DELL'AREA DI TRACC1AMEN-TO DI 32 
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X « QUADRATI PRIMA DI C0M1N- C1ARE.": 

8640 PRINT ' USARE I TASTI I ,J,K A M PER GLI' 

8650 PRINT "SPOSTAMENTI IN SU, A SINISTRA, A DESTRA E IN GIU 
' RISPETTIVAMENTE."i 

8660 PRINT " PREMERE LA BARRA SPAZIO QUANDO AVETE RAGGIUNT 
0 IL* 

8670 PRINT "PUNTO DI PARTENZA."; PRINT 

8680 PRINT " TRACCIARE I PUNTI USANDO GLI STESSI ‘ 

8690 PRINT "TASTI PER LO SPOSTAMENTO DEL CURSORE." 

8700 PRINT "PREMENDO SOLO IL TASTO SI SPOSTERÀ" IL" 

8710 PRINT ‘CURSORE NELLA DIREZIONE OPPORTUNA,’ 

8720 PRINT "CREANDO UN VETTORE 'SENZA TRACCIAMENTO'.TENENDO 
PREMUTO IL TASTO 'CTRL' E PRE-" 

8730 PRINT "MENDO I,J,K 4 M. SI TRACCERA' IL BLOCCO* 

8740 PRINT "SUL QUALE SI TROVA IL CURSORE PRIMA DI" 

8750 PRINT "SPOSTARSI NELLA DIREZIONE APPROPRIATA" 

8760 PRINT "CREANDO IN VETTORE 'CON TRACCIAMENTO'." 

8770 VTAB 23: INJERSE : PRINT "<ESC> PRECEDENTE, 'M' PER CO 
NT1NUARE ":: NORMAL 

8780 GET Zi: IF Zi = CHRi (27) THEN POP : GOTO 8230 
8790 IF Zi < > "M" THEN 8780 

8800 HOME : PRINT " LA FIGURA CHE SI STA TRACCIANDO E' " 

8810 PRINT "VISUALIZZATA SUL LATO DESTRO DEL VIDEO" 

8820 PRINT "SIA CON ROTAZIONE ZERO - SCALA UNO, SIA" 

8830 PRINT "CON ROTAZIONE 16 - SCALA UNO." 

8850 PRINT "IL COLORE DI QUESTE FIGURE PUÒ' ESSERE CAMBIATO 
■ , 

8860 folNT " PREMENDO IL TASTO 'C'.": PRINT 
8870 PRINT " SE SI FA UN ERRORE SI PUÒ' TOSTARE ” 

8880 PRINT "INDIETRO E 'TOGLIERE IL TRACCIAMENTO' DIUN VETTO 
RE ALLA VOLTA": 

8890 PRINT " CON IL TASTO 'B'.": PRINT 

8900 PRINT " SI PUÒ' ANCHE RITRACCIARE L'INTERA FI-" 

8910 PRINT "DURA PREMENDO IL TASTO 'R'. IL CURSORE " 

8920 PRINT "E' QUINDI POSIZIONATO DOVE SI DESIDERA " 

8930 PRINT "INIZIARE A TRACCIARE E I BLOCCHI SONO " 

8940 PRINT "INDICATI NEL MODO CONSUETO. LA VECCHIA" 

8950 PRINT "FIGURA RUtfNE SULLO SCHERMO COME GUIDA.": PRINT 

8960 PRINT " PER RICOMINCIARE DA CAPO PREMERE IL " 

8970 PRINT "TASTO 'E'. LA FIGURA E 1 SUOI VETTORI VENGONO 
CANCELLATI." 

8980 RETURN 

8990 REM -PAGINA TRE- 

9000 PRINT "SALVARE LA FIGURA:": PRINT 

9010 PRINT " SI PUÒ' SALVARE SU DISCO IL FILE DI " 

9020 PRINT "VETTORI CHE DISEGNA LA FIGURA. PREMENDO" 

9030 PRINT "(ESC - RETURN) SI RITORNA ALLA FUNZIONE" 

9040 PRINT "TRACCIAMENTO.": PRINT : PRINT : PRINT 

9050 PRINT "CARICARE LA FIGURA:": PRINT 

9060 PRINT " QUANDO SI CARICA UN FILE DI VETTORI" 

9070 PRINT "DAL DISCO. LA FIGURA VIENE PRESENTATA" 

9080 PRINT "NELLA FUNZIONE TRACCIAMENTO E INIZIA" 

9090 PRINT "DALLA POSIZIONE DEL CURSORE, SE NON TRO-VERA' PO 
STO"; 

9100 PRINT " SULLO SCHERMO, VERRÀ' CHIE- STO DI": 

9110 PRINT " SPOSTARE IL CURSORE E RIPROVARE." 

9120 PRINT " BATTERE (ESC) PER TORNARE ALLA FUNZI- NE TRACC 
IAMENTO." 


9140 RETURN 

9150 REM -PAGINA QUATTRO- 

9160 PRINT "COMANDI DOS:": PRINT 

9170 PRINT " SONO DISPONIBILI DUE COMANDI:'DELETE" 

9180 PRINT "E 'CATALOG'. DELETE NON FORNISCE UN " 

9190 PRINT "PREFISSO COME 'VETTORI/' 0 'TAVOLA/'" 

9200 PRINT "PER IL NOME DEI FILE DA CANCELLARE." 

9210 PRINT 

9220 PRINT " BATTERE (ESCI PER TORNARE ALLA " 

9230 PRINT "FUNZIONE TRACCIAMENTO.": PRINT : PRINT 

9240 PRINT "VEDERE LA FIGURA:": PRINT 

9250 PRINT" LE FIGURE POSSONO ESSERE ESAMINATE CON"; 

9260 PRINT "IL CONTROLLO DEL COLORE, SCALA E ROTA-" 

9270 PRINT “ZIONE. PER FATTORI DI SCALA MINORI CI ’ 

9280 PRINT "SONO MENO ANGOLI DI ROTAZIONE DISPONIBI-LI." 

9290 PRINT " BATTERE <ESC> PER TORNARE ALLA FUNZIO-NE": 

9300 PRINT " TRACCIAMENTO." 

9310 RETURN 

9320 REN -PAGINA CINQUE- 

9330 PRINT "COSTRUIRE LA TAVOLA:": PRINT 

9340 PRINT " QUANDO VIENE RICHIESTO BATTETE IL NOME"; 

9350 PRINT "DEI FILE VETTORI CHE SI VUOLE COMBINARE" 

9360 PRINT "IN UNA TAVOLA DELLE FIGURE. PER INDICARE"; 

9370 PRINT ‘LA FINE DI UNA TAVOLA, INTRODURRE 'END'" 

9380 PRINT '(RETURN). SI PUÒ' CONSULTARE IL CATALOGO": 

9390 PRINT "DEL DISCO BATTENDO 'C' E (RETURN). PER 1NTERROM 
PERE LA COSTRUZIONE DI UNA TAVO-LA" : 

9400 PRINT " BATTERE (ESC) (RETURN).*: PRINT : PRINT 
9410 PRINT "VEDERE LA TAVOLA:": PRINT 
9420 PRINT " SI PUÒ' CARICARE UNA TAVOLA DELLE FIGU-RE ED ES 
AMINARE"j 

9430 PRINT " UW QUALSIASI SUA FIGURACON IL CONTROLLO DEL"; 

9440 PRINT " COLORE, SCALA E RO-TAZIONE DELLA FIGURA." 

9450 PRINT " CON FATTORI DI SCALA MINORI CI’: 

9460 PRINT " SONO ME-NO ANGOLI DI ROTAZIONE DISPONIBILI." 

9470 PRINT " BATTERE (ESO PER IL MENU' PRINCIPALE." 

9480 RETURN 

9500 HOME : PRINT ; PRINT "NOME DELLA TAVOLA FIGURE ESISTENT 
E" 

9510 PRINT : INPUT "TAVOLA/" ;Ut: IF Ut = CHRi (27) OR Wi = 

"" THEN GOTO 420 

9515 IF Ni = "?" THEN POKE 35,24:L0C = 8: GOTO 8000 

9518 IF Ut = "C" THEN PRINT : PRINT Di:"CATALOG": PRINT : GOTO 

9510 

9520 ONERR GOTO 10000 

9530 PRINT DÌ:"BLOAD TAVOLA/";UÌ;",A2561" 

9540 SNUM = PEEK (2561): IF SNUM ) = 256 THEN GOTO 6290 
9550 TL = PEEK (43616) * PEEK (43617) » 256 
9560 L(SN) = TL - PEEK (AD t (2 * SNUM)) - PEEK (AD + (2 * 
SNUM) ♦ 1) « 256 

9570 FOR I = SNUM - 1 TO 1 STEP - 1 

9580 LO) = PEEK (AD + (I * 2) ♦ 3) » 256 * PEEK (AD * (2 * 

I) + 2) - PEEK (AD + (2 » I) + 1) * 256 - PEEK (AD * 2 
* I) 

9590 NEXT I 

9600 AA = AA * TL:TL = 0:AD = AD + 2 * (SNUM * 1): POKE 216,0 
: GOTO 6220 

10000 PRINT "ERRORE-LA TAVOLA NON ESISTE SU QUESTO DISCO": 
GOTO 9510 


l'utente al punto opportuno del pro¬ 
gramma dopo che sono stati stampati i 
messaggi d’errore o le istruzioni. 

Modifiche 

Il programma nella sua forma attua¬ 
le provvede una griglia di 44 quadrati 
per 32 nella quale tracciare le figure, e 
ogni quadrato della griglia occupa 5 
per 5 punti Hi-Res. Volendo si può 
provare a dare alla griglia dimensioni 
diverse. Il ricorso a un quadrato di 4 
punti per 4 permetterebbe una griglia 
di 55 per 40, ma le minori dimensioni 
del quadrato rendono più difficile di¬ 
segnare per il cursore e per i due tipi di 


Listato 2 

0300- 

03 

00 

08 

00 

11 

00 

IF 

00 

0308- 

3F 

OC 

08 

36 

29 

1E 

1A 

24 

0310- 

00 

36 

3F 

2C 

3C 

24 

35 

25 

0318- 

35 

36 

2E 

24 

24 

07 

00 

18 

0320- 

36 

20 

20 

24 

24 

3F 

3F 

36 

0328- 

00 









blocchi figure distinguibili. Chi dispo¬ 
ne di un monitor potrebbe probabil¬ 
mente farcela con un quadrato di 3 
punti per 3. 

Un altro miglioramento possibile 
consiste nello scrivere una routine in 
linguaggio macchina che prenda il po¬ 
sto della surboutine DISEGNA LA 


FIGURA GRANDE. Questa routine 
potrebbe essere praticamente uguale 
alla routine di disegno dell’Applesoft, 
ma anziché tracciare soltanto un punto 
disegnerebbe una figura predefinita 
con ciascun vettore. L’accresciuta ve¬ 
locità di questo metodo potrebbe apri¬ 
re la porta a ogni sorta di altre modifi¬ 
che, come il riposizionamento della fi¬ 
gura grande nell’ambito della griglia 
se si restasse senza spazio per tracciare 
lungo un Iato. 


Questo programma è disponibile su 
dischetto. L’elenco, i prezzi e le 
modalità d’ordine di questo e degli altri 
dischetti disponibili sono riportati nella 
rubrica Disk Service. 

- K 
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^cippkz computer 


Gruppo 


GunpuShnji 


Apple He 

monitor Ile e supporto 
Disk drive aggiuntivo, 
Mouse. 


Macintosh 

512K RAM 


Apple Ile 

128K RAM, 80 colonne 
Duodisk 




simulai! - 

ZX Spectrum 48K 



8 cassette originali, 

2 libri in italiano, 
supergaranzia Rebit. 

£. 365.000 iva inclusa 


SPECTRAVIDEO 

Sinclair - 

Qz. Commodore 
pappié computer 

olivelli 


ROMA 


• Via Nomentana 265/273 

Tel. 8450078 

• Via L. Bonincontri 105/107 

Tel. 5140792 

• Via Famagosta 33 

Tel. 385408 


Ulteriori informazioni saranno fornite presso i punti vendita 
































Vi piacerebbe aggiungere ai vostri programmi un menù 
professionale? Qui lo troverete già fatto 
e pronto da inserire in testa al listato, 
con un risparmio di tempo e una resa che... 


: DOS 3.3 

-tur 

ProOOS. 

-tini 

APPLE //e 

«n 

APPLE //c 

«il 


Quel programma 
si presenta da sé 


F ra tutte le varie tecniche di pre¬ 
sentazione dei menù, adottate nei 
vari programmi, una delle migliori è 
senza dubbio quella che offre una lista 
di tutte le opzioni, una delle quali vi¬ 
sualizzata in campo inverso. Usando 
le frecce sinistra e destra si possono 
evidenziare le scelte una dopo l’altra, 
e quando si arriva a quella voluta basta 
premere il tasto RETURN per far sì 
che il programma salti al punto appro¬ 
priato. 

Questa tecnica non è nuova, ma qui 
la novità è nel far fare all’Apple il lavo¬ 
ro di scrivere un segmento di program¬ 
ma fatto su misura per ciascuna appli¬ 
cazione. 

In altre parole, è stato scritto un 
programma in Applesoft che chiede 
tutte le informazioni necessarie, scrive 
un file di testo contenente tutte le linee 


di programma occorrenti e quindi lo 
inserisce nel programma di destinazio¬ 
ne con il comando EXEC. 

Questo programma è l’AUTO- 
SCHERMO (Listato 1). Per utilizzare 
l’AUTOSCHERMO tutto quello che 
si deve fare è digitarlo in memoria e 
salvarlo su dischetto. Con questo pro¬ 
gramma si può creare un segmento di 
programma in Applesoft, esente da 
errori, anche per uno schermo di sele¬ 
zione complesso, in non più di due 
minuti. 

Il segmento di programma impie¬ 
gherà numeri di linea iniziale e incre¬ 
menti scelti dall’utente. Il segmento di 
programma può essere addirittura uti¬ 
lizzato "stand-alone" (da solo) come 
programma HELLO, per scegliere fra 
un massimo di 20 programmi da ese¬ 
guire con RUN o con BRUN. 


Utilizzo 

Quando si fa RUN AUTOSCHER¬ 
MO il programma invita a introdurre 
un numero di linea iniziale e un incre¬ 
mento. In tal modo potete adattare su 
misura il segmento di programma ge¬ 
nerato al programma di destinazione, 
oppure accettare i valori di default 
premendo RETURN. 

Viene poi chiesto se si vogliono ri¬ 
ghe d’intestazione alla sommità dello 
schermo di selezione generato. Se ri¬ 
spondete con S, potrete poi introdurre 
una o più stringhe, ognuna delle quali 
comparirà, centrata, in una linea in 
campo inverso alla sommità dello 
schermo. Si può migliorare l’estetica 
introducendo soltanto spazi, con il ri¬ 
sultato di una linea bianca continua. 
Con una linea di questo tipo sopra la 


**************************************** 

* 


* 

* 

AUTOSCHERMO 

* 

X 


* 

X 

DI DON RAUEY 

* 

X 


* 

**************************************** 
'TWBIfin ACCETTA IL UALORE DI DEFAULT 

NO 

LINEA INIZIALE PER LA ROUTINE 

9000 

NO 

INCREMENTI LINEA 10 


UUOI 

RIGA < RIGHE - D'INTESTAZIONE C 
centrate:» alla sommità 1 dello 

ENTRA- 

TA < 

SCHER- 

MO ? 

< S ■ N » 



Figura 1. La routine parte automaticamente dalla riga 9000. 
Se il programma al quale viene agganciata non ha un 
numero superiore, basta battere RETURN. 


***************************************| 
» AUTOSCHERMO 

* DI DON RAUEY 

* * 


% * 
**************************************** 
accetta il ualore di default 

NO LINEA INIZIALE PER LA ROUTINE 9000 
NO INCREMENTI LINEA : 10 


UUOI RIGA < RIGHE > D' INTESTAZIONE CENTRA- 
TA < CENTRATE> ALLA SOMMITÀ' DELLO SCHER¬ 
MO"? < S - N } S 


dopo l'ultima riga solo ia=Wiail 
APPLICANDO 15/"S5 


Figura 2. Il menù che si ottiene con AUTOSCHERMO può 
contenere un’intestazione iniziale che verrà presentata sul 
video in Inverse e centrata. 
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INTRODURRE LO UOCE DI SELEZIONE NO 1 


SINTETIZZATORE 

INSERITE IL COMANDO ESATTO CHE UA ESE- 
G^TO e I N^UES^F^ElJjZ^ONE ‘ ES ■ 

PPINTD$"RUN SINTETIZZATORE"■ 


Figura 3. Questa opzione serve a inserire il nome di un 
programma e il relativo comando di servizio per esempio 
PRINT DSS “RUN (nome programma)” per farlo partire. 


hFF'LIChNDO 1 


SINTETIZZATORE 
APPLE ILLUSTRATORE 
MOLANO 

CATALOG 


BH SCEGLIERE 
■CAMBIARE 


ESEGUIRE 
ACCETTA - “ 


TARE 


Figura 4. Ecco come si presenta il menù principale di un 
dischetto che contiene quattro programmi. Il risultato è 
ottenuto in pochi minuti con AUTOSCHERMO. 


linea del titolo e un’altra sotto si ottie¬ 
ne un risultato molto professionale. 

L'introduzione del solo RETURN 
mette fine all’introduzione dell’inte¬ 
stazione, pulisce lo schermo, visualiz¬ 
za l’intestazione appena creata e dà 
inizio a una serie di prompt ripetuti. 

Per tutte le opzioni che si vogliono 
avere sullo schermo di menù (fino a 
20, a meno che non si siano specificate 
righe d’intestazione multiple) verrà 
chiesta la "voce di selezione" (vale a 
dire che cosa dovrebbe apparire sullo 
schermo) e poi distruzione di azione" 
che deve essere eseguita quando si sce¬ 
glie quell’opzione. L’istruzione di 
azione può essere qualsiasi valida 
istruzione Applesoft o comando DOS 
(non dimenticate il control—D), com¬ 
prese le istruzioni multiple separate da 
due punti (:), purché la linea da intro¬ 
durre contenga meno di 40 caratteri in 
totale. Basta premere il tasto RE¬ 
TURN per mettere fine a questa sezio¬ 
ne del programma e avere una VE¬ 
DUTA PRELIMINARE dello scher¬ 
mo generato. Adesso se volete cam¬ 
biare una voce di selezione o un’istru¬ 
zione di azione, potete farlo premen¬ 
do "C" mentre la voce è evidenziata. 
Notate che per questo esame prelimi¬ 
nare premendo il tasto RETURN si 
avrà la stampa (PRINT) dell’istruzio¬ 
ne di azione alla base dello schermo 
per la sua verifica, anziché l’effettiva 
esecuzione quale verrà fatta nel pro¬ 
gramma generato definitivo. 

Premendo il tasto ESCAPE si inco¬ 
mincia il processo di scrittura del seg¬ 
mento di programma generato in un 
file di testo denominato SELECT 
.SEG sul proprio dischetto. Il pro¬ 
gramma comunicherà poi all’utente il 


blocco di numeri di linea occupato dal 
segmento generato. 

Se almeno parte del programma di 
destinazione in Applesoft è già salvata 
come file su dischetto, la si deve ora 
caricare. Si deve essere certi che non 
esistano conflitti di numero di linea 
listando il programma dal numero di 
linea iniziale al numero di linea finale, 
come riferito dall’AUTOSCHER- 
MO. Poi fate EXEC SELECT.SEG 
per aggiungere il segmento generato al 
programma in memoria. Può darsi che 
nel corso di questa operazione il moto¬ 
re del drive si avvii e si fermi varie 


volte, mentre i caratteri di prompt del- 
l’Applesoft scorrono in giù lungo il la¬ 
to sinistro dello schermo. Pazientate 
un attimo e assicuratevi che tutta l’atti¬ 
vità sia terminata prima di cercare di 
introdurre qualsiasi altra cosa. Poi sal¬ 
vate il programma che contiene il seg¬ 
mento della nuova subroutine. 

Se non avete ancora introdotto il 
programma di destinazione, e volete 
farlo adesso, battete NEW (per elimi¬ 
nare dalla memoria altre eventuali li¬ 
nee di programma) poi fate EXEC 
SELECT.SEG come sopra. Potete co¬ 
sì listare il segmento generato e comin- 


Listato I 


REM 

REM 

REM 

REM 

REM 

REM 

REM 


********************** 

* AUTOSCHERMO * 

* DI DOTI RAVEY * 

* COPYRIGHT (C> 1985 * 

* BY APPLICANDO & * 

* MICROSPARC, INC * 
********************** 


10 
11 
12 

13 

14 

15 

16 

20 DIM SII(20).SAI<20) 

30 0$= CHR$ (34) :D$ = CHR$ (4) 

99 GOTO 199: REM : :SUBR0UTINES : 

100 VTAB 22: INVERSE : PRINT "PREMI UN TASTO QUALUNQUE PER CON 
T1NUARE.’: N0RMAL 

101 UJAIT - 16384,128,1: P0KE - 16368,0: RETURN 

102 PRINT ST$:* (S/N) *:: GET Al: PRINT A$:SI = Al = "S": RETURN 


109 REM ** RICEVE UNA STRINGA CHE HA 

CARATTERI ** INTRODOTTI, COMPRESE 
RG0LETTE... 

110 P0KE - 16368,0:SI = , *:HT = 1 

112 FLASH : PRINT 1 N0RMAL :K = PEEK < 

28 THEN P0KE 36, PEEK (36) - 1: GOTO 112 
114 K = K - 128: 1F K = 13 THEN P0KE 36, PEEK (36) - 1: CALL - 
868: PRINT : GOTO 120 

116 IF (K = 8 OR K = 21) AND LEN (SI) < 2 THEN SI = 

HT: CALL - 868: P0KE - 16368,0: GOTO 112 


** ESATTAMENTE I 
** VIRGOLE E VI 


16384): IF K < 1 


HTAB 
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117 IF K = 8 THEN SI = LEFTI (SI, LEN (SI) - 1): POKE 36, PEEK 
(36) - 2: CALL - 868: POKE - 16368,0: GOTO 112 

118 SI = SI + CHRI (K): POKE 36. PEEK (36) - 1: PR1NT CHRI (K 

);: POKE - 16368,0: GOTO 112 
120 RETURN 

14? REM ** SPOSTA IL CURSORE INVERSO ** DALLA VOCE '0 

S y #* ALLA VOCE 'CS'. 

150 VTAB HL + 2 + OS + OS MS < 10): HTAB HT: PRIMT Sll(OS) 

152 VTAB HL + 2 + CS ♦ CS MS < 10): INVERSE : HTAB HT: PR1NT 
Sll(CS): NORMAL 
154 RETURN 

19? REM ::::PROGRAmA PRINCIPALE:::: 


dare a introdurre il nuovo program¬ 
ma. In qualunque momento, natural¬ 
mente, potete salvare il programma 
usando il nome che preferite. 

Dopo aver usato due o tre volte 
l’AUTOSCHERMO per fare pratica, 
dovreste essere in grado di generare 
schermi di selezione anche per dieci o 
quindici opzioni nel giro di un paio di 
minuti. Fate il confronto con le ore di 
programmazione e di debugging che 
occorrerebbero per programmare da 
zero un’analoga subroutine. 


200 ASI = **#**###******##**#*###****#*####*##*##**’ 

202 BS$ = * # 

300 TEXT : HOME : VTAB 2: PRINT ASIjBSI; 

310 PRINT '* A U T 0 S C H E R M 0 
320 PRINT BSI;’* DI DON RAVEY *‘;BSI;A 

SI 

325 VTAB 22: PRINT ‘(0 1985 BY APPLICANDO 4 MICR0SPARC.INC.‘ 

330 VTAB 14: HTAB 6:ST! = "VUOI LE ISTRUZIONI’ ’: G0SUB 102 
340 IF N0T SI THEN 1000 

350 HOME : HTAB ?: INVERSE : PRINT "A U T 0 S C H E R M 0*: NORMAL 

360 PRINT : PRINT ‘QUESTO PROGRAMMA CREERÀ' UN FILE DI TE- STO 
CONTENENTE UNA ROUTINE PER IN 'MENU'DI SELEZIONE' CHE PUÒ 
' ESSERE MESSA CON EXEC IN UN PROGRAMMA IN APPLESOFT.’: PRINT 

380 PRINT "SI PUÒ' SCEGLIERE SE AVERE 0 NO UN'INTE-STAZIONE AL 
LA SOMMITÀ' DELLO SCHERMO. LE SCELTE SARANNO FATTE USFND 
0 LE FRECCESINISTRA E DESTRA, COME SPIEGATO IN FONDO A 
LL0 SCHERMO.' 

390 PRINT 

400 PRINT ‘SARANNO CHIESTE 'VOCI DI SELEZIONE'(C0MEN0MI DI PRO 
GRAMMI, 0N0MI DI OPZIONI DEI PROGRAMMI ) ... E COMANDI DI ' 
AZIONE' PER"; 

410 PRINT ‘CIASCUNA VOCE (ESATTAMENTE COME LI INTRODURRESTE IN 
LINEE DI' PROGRAMMA INVERSE : PRINT ‘GOTO 550’:: NORMAL 
: PRINT ‘ OPPURE ’:: INVERSE : PRINT ‘PRINT *;QI;‘ RUN AB 
C‘;QI; : NORMAL : PRINT 

420 PRINT "COMPRESI I CARATTERI DI CONTROLLO, COME C0NTR0L-D P 
ER I COMANDI DOS, ECC." 

450 GOSUB 100: HOME : GOTO 1000 
500 REM 

999 REM ** CHIEDE NO. DI LINEA ** VALORI E RIGHE 
** D'INTESTAZIONE... 

1000 ‘VTAB 9: CALL - 958: INVERSE : PRINT ‘RETURN’;: NORMAL : PRINT 
" ACCETTA IL VALORE DI DEFAULT..." 

1010 VTAB 11: PRINT ‘NO. LINEA INIZIALE PER LA ROUTINE: 9QG0‘; 

: POKE 36, PEEK (36) - 4 
1020 LS = 9000: INPUT ‘‘;LSI 
1030 IF LEN (LSI) > 0 THEN LS = VAL (LSI) 

1040 VTAB 11: HTAB 35: CALL - 868: PRINT LS 

1050 LN = LS: IF LS = 0 THEN 1010 

1060 VTAB 13: PRINT ‘NO. INCREMENTI LINEA: 10*; : POKE 36, PEEK 
(36) - 2 

1070 LI = 10: INPUT “;LII 

1080 IF LEN (LI!) > 0 THEN LI = 'VAL (LII) 

1090 VTAB 13: HTAB 23: CALL - 868: PRINT LI 

1100 IF LI = 0 THEN 1060 

1110 HL = 0: 'VTAB 15: PRINT ‘VUOI RIGA (RIGHE) D'INTESTAZIONE C 
ENTRA-TA (CENTRATE) ALLA ‘; 

1120 STI = ‘SOMMITÀ' DELLO SCHER-MO? ‘: GOSUB 102 
1130 IF N0T SI THEN 2000 
1140 VTAB 18: PRINT ■ 

1150 INVERSE : PRINT ‘RETURN’; : NORMAL : PRINT *. DOPO L'ULTIM 
A RIGA SOLO INVERSE : PRINT ‘RETURN’;: NORMAL : PRINT 
PRINT „ . 

Continua 


Variabili 

Nel segmento di programma gene¬ 
rato verranno usate le variabili indica¬ 
te qui sotto, e pertanto si deve o evita¬ 
re di usare gli stessi nomi nel proprio 
programma, o apportare gli opportuni 
cambiamenti al segmento di program¬ 
ma dopo averne fatto l’EXEC nel pro¬ 
prio programma: 


Q$ CHR$ (34) — le virgolette (”); 
HL Numero delle righe di intestazio¬ 
ne; 

SN Numero delle voci di selezione; 
HL$ ( ) Matrice stringa contenente la 
linea (o le linee) di intestazione; 

SI$ ( ) Matrice stringa contenente le 
voci di selezione; 

HT Valore di tab orizzontale per le 
voci di selezione; 

CS Variabile contenente il numero di 
selezione corrente; 

OS Variabile contenente il numero di 
selezione precedente; 

K Variabile contenente il valore 
-16384 (tasto battuto); 

X Indice per i loop. 


Autoschermo 
riga per riga 

Le linee 20 e 30 dimensionano le 
matrici che occorrono e assegnano le 
variabili per due utili caratteri: le vir¬ 
golette (") e control —D. Le linee da 
ÌOO a 154 sono subroutine, le esamine¬ 
remo meglio più avanti. Le linee da 
200 a 340 creano la "pagina d’intesta¬ 
zione" che compare quando viene ese¬ 
guito questo programma, e le linee da 
350 a 450 presentano le istruzioni all’u¬ 
tente se le desidera. Si notino le chia¬ 
mate di subroutine nelle linee 330 (per 
avere una risposta SI o NO) e nella 
linea 450 (per avere la battuta di tasto 
per continuare). 

Esauriti questi preliminari, le linee 
da ÌOOO a 1180 si procurano dall’utente 
i dati concernenti il numero di linea 
iniziale e l’incremento per il segmento 


■■ 
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■UTOSCHERMO 

PRINTD*“RUN AUTOSCHERMO- 


1WUH 

lUOUA I 


ACCETTA LA RIGA 0 INTRODUCI UNA 
RIGA . . . 


FATTO 


IL SEGMENTO DI PROGRAMMA 'SCHERMO DI 
SELEZIONE' E' CONTENUTO NEL FILE 
"SELECT.SEG" 

PUOI BATTERE 'EXEC SELECT.SEG' NEL TUO 
PROGRAMMA DI DESTINAZIONE OCCUPERÀ' I 
NUMERI DI LINEA DA HSCafl A 


Figura 5. Se nella preparazione del menù si dovesse commettere 
qualche errore, c’è la possibilità di correggere. 


Figura 6. A questo punto, con un semplice EXEC la routine 
si aggancia al o ai programmi desiderati. 


di programma da generare, e inoltre le 
stringhe da usare come righe d’intesta¬ 
zione. Tenete nota del numero delle 
righe d’intestazione come variabile 
HL, mentre il numero di linea iniziale 
e l'incremento sono memorizzati ri¬ 
spettivamente come LS e LI. 

Per ciascuna riga d’intestazione che 
si desidera, la linea 1170 richiama la 
subroutine che va dalla linea 110 alla 
120. Questa agisce in modo molto si¬ 
mile a quanto fa l’istruzione INPUT, 
ma accetta virgole, virgolette, due 
punti e caratteri di controllo e li mette 
nella stringa S$ fino a quando viene 
introdotto un RETURN. 

Le linee da 2000 a 2080 invitano a 
ripetizione l’utente a introdurre una 
"voce di selezione", poi a introdurre i 
comandi DOS o le istruzioni Apple¬ 
soft appropriati a quella scelta. Posso¬ 
no essere introdotte fino a un massimo 
di 20 scelte e le loro istruzioni di "az¬ 
ione". Ogni volta che si risponde alla 
richiesta di una "voce di selezione" sol¬ 
tanto con RETURN, il programma 
salta a linea 3000, tenendo il numero 
delle voci di selezione come variabile 
S, le voci di selezione nella matrice 
stringa SI$ e le istruzioni di azione nel¬ 
la matrice stringa SA$ ( ). Si noti che 
per ottenere queste voci di dati viene 
usata la subroutine 110, come la si era 
usata per le stringhe delle righe d’inte¬ 
stazione. 

La linea 3010 determina la lunghez¬ 
za della più lunga delle stringhe delle 
voci di selezione (HM) e la linea 3020 
assegna a HT, sulla base di quella lun¬ 
ghezza massima, un valore da usare 
come valore di HTAB per tutte le voci 
di selezione. Lo si fa per ragioni di 
estetica: tutte le voci di selezione sa¬ 
ranno rientrate in modo uguale di una 
quantità che centra la linea più lunga 


sullo schermo. 

La sezione del programma che va da 
linea 4000 a linea 4350 visualizzerà lo 
schermo di selezione che è stato crea¬ 
to, e permetterà di cambiare qualsiasi 
voce di selezione o istruzione d’azione 
prima di generare il file di testo. Que¬ 
sto schermo "modello" funziona pro¬ 
prio come farà quello definitivo, tran¬ 
ne il fatto che quando si preme il tasto 
RETURN le istruzioni di azione, inve¬ 
ce di essere eseguite, sono soltanto 
stampate alla base dello schermo in 
modo che le si possa controllare. Se si 
vuol correggere una voce lo si può fare 
premendo "C" mentre la voce di sele¬ 
zione è evidenziata in campo inverso. 
Compariranno sia la voce di selezione 
sia l’istruzione d’azione, con il cursore 
lampeggiante sul primo carattere della 
voce. Premendo il tasto RETURN si 
lascerà la voce come è; qualsiasi altro 
tasto darà inizio a una stringa sostituti¬ 
va. Lo stesso vale per l’istruzione di 


azione. Infine con ESCAPE viene ac¬ 
cettato l’intero schermo e viene scritto 
il file di testo SELECT.SEG. Se in 
precedenza si era salvato sul dischetto 
un file con quel nome, esso sarà can¬ 
cellato prima che venga scritto il nuo¬ 
vo file. 

Funzionamento 

La maggior parte della sezione "di¬ 
splay" usa la stessa logica di program¬ 
ma che userà il programma definitivo. 
La linea 4010 stampa le righe di inte¬ 
stazione, se ce ne sono, in campo in¬ 
verso, centrate. Si noti che se HL (il 
numero di righe d’intestazione) è zero 
(un "falso" booleano) saranno eseguiti 
solo i comandi TEXT e HOME della 
linea 4010; il resto della linea verrà 
saltato in conseguenza del fatto che la 
condizione IF è risultata falsa al test. 

Il loop nelle linee da 4030 a 4060 
stampa le voci di selezione sullo scher- 


Figura7. A 
questo 
punto, con un 
semplice 
EXEL, la 
routine si 
aggancia alo 
ai programmi 
desiderati. 
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1160 HT = 1 

1170 60SUB U0:HLKHL) = SI: IF LEN (HLKHD) < > 0 THEN HL = 

HL + 1 : Sì = GOTO 1170 

1180 FOR X = 0 TO HL:XI = ": FOR Y = 1 TO (41 - LEN (HLKX)) 

) / 2:XI = XI ♦ ' NEXT Y:HLt<X> = XI + HLI(X) + XI:HLI( 

X) = LEF7I (HLI(X),40): NEXT X 
1900 REM 

1999 REM ** RICEVE OGNI VOCE DI ** SELE21ONE E 1 C'OMAN 
DI «D'AZIONE... 

2000 HCME : IF HL < ) 0 THEN INVERSE : FOR X = 0 TO HL - 1 : PRINT 
HLI(X)j: NEXT X: NORMAL : PRINT 

2010 S = 1 ' 

2020 'VTAB HL + 2: HTAB ! : CALL - 958: PRINT 'INTRODURRE LA VO 
CE DI SELEZIONE NO. ";S;’:': PRINT 
2030 GOSUB 110:SIt(S> = SI: PRINT 
2040 IF LEN (SIKS)) = 0 THEN S = S - 1 : GOTO 3000 
2050 PRINT 'INSERITE IL COMANDO ESATTO CHE 'VA ESE- GU1TO IN Q 
UESTA SELEZIONE..(ES.: INVERSE : PRINT "G0TO550':: NORMAL 
: PRINT ' OPPURE ";: INVERSE : PRINT "PRINT ";QI;" BRUN XY 
Z';QI:: NORMAL : PRINT ' 

2060 PRINT "NON DIMENTICATE IL CONTROL-D PER IL DOS!': PRINT 
2070 GOSUB 110:SAI(S) = SI: REM RICEVE LA RIGA ESATTA. 

2080 S = S ♦ 1 : GOTO 2020 
2090 REM 

3000 REM 'CENTRA' I DISPLAY: 

3010 FOR X = 1 TO S: IF LEN (S1KX)) > HI THEN HM = LEN (SII 
(X)): NEXT 

3020 HT = 1NT (20 - HM / 2) + (HM = 0) 

4000 REM : : : :DISPLAYs: : : 

4010 TEXT : HOME : IF HL THEN INVERSE : FOR X = 0 TO HL - 1: PRINT 
HLKX) ; : NEXT : NORMAL : PRINT 
4020 CS = 1 : REM SCELTA CORRENTE 
4030 FOR X = 1 TO S: IF X = CS THEN INVERSE 
4040 VTAB HL + 2 + X ♦ X * (S < 10) 

4050 HTAB HT: PRINT SIKX): NORMAL 
4060 NEXT 

4070 'VTAB 23: INVERSE : PRINT NORMAL : PRINT ' ':: INVERSE 
: PRINT NORMAL : PRINT ' SCEGLIERE .... INVERSE 
: PRINT "RETURN";: NORMAL : PRINT ■ ESEGUIRE." 

4080 'VTAB 24: HTAB 3: FLASH : PRINT 'C ; : NORMAL : PRINT " CAM 
B1ARE ... ";: FLASH : PRINT "ESC;: NORMAL : PRINT " ACCET 
TARE."; 

4090 POKE - 16368.0 

4100 K = PEEK ( - 16384): IF K < 128 THEN 4100 
4110 POKE - 16368,0:K = K - 128: IF K ( > 8 AND K < ) 21 AND 
K < ) 13 AND K < > 27 AND K < >67 THEN 4100: REM I 
SOLI TASTI ACCETTABILI 
4120 VTAB 21: HTAB 1: CALL - 868 
4130 OS = CS 

4140 IF K = 8 THEN CS = CS - 1:CS = CS * (CS > 0) + S * (CS = 

0): GOSUB 150: GOTO 4100: REM FRECCIA SINISTRA 

4150 IF K = 21 THEN CS = CS + 1:CS = CS * (CS ( = S) + (CS = 

S + 1): GOSUB 150: GOTO 4100: REM FRECCIA DESTRA 

4160 IF K = 13 THEN 'VTAB 21: PRINT " ';SAI(CS): GOTO 4100: REM 
C.R. 

4170 IFY= 27 THEN 6000: REM 'ESC' - SCRIVE IL FILE 
4180 REM K DEVE ESSERE 67 ('C')... 

4190 HOME : VTAB 22: INVERSE : PRINT "RETURN";: NORMAL : PRINT 
" ACCETTA LA RIGA..0 INTRODUCI UNA NUOVA RIGA..." 

4200 VTAB 4: HTAB HT: PRINT SIKCS): 'VTAB 7: HTAB HT: PRINT SA 
KCS) 

4210 VTAB 4: FLASH : HTAB HT: PRINT LEFTI (SIKCS),1);: NORMAL 

4220 K = PEEK ( - 16384): IF K < 128 THEN 4220 
4230 POKE - 16368,0: HTAB HT: CALL - 868: IF K = 128 + 13 THEN 
PRINT SIKCS): GOTO 4270 

Continua 


mo, con una delle voci stampata in 
campo inverso, cioè quella corrispon¬ 
dente alla variabile della "scelta cor¬ 
rente", CS. La linea 4040 metterà fra le 
voci la doppia spaziatura se ce ne sono 
meno di dieci. Dipende se è vera o 
falsa (1 o 0) l’espressione booleana, 
"SCIO". 

La linea 4070 non fa che stampare 
sullo schermo alla riga 23 la riga di 
promemoria. La linea 4080 stampa la 
linea d'istruzione in più per il display 
"modello", e dopo che è stato pulito lo 
strobe di tastiera a linea 4090 entriamo 
in un loop a linea 4100 per controllare 
se sia stato premuto un tasto. La linea 
4110 controlla quale tasto sia stato 
premuto. Per essere accettabile deve 
essere uno dei seguenti, altrimenti il 
controllo torna a linea 4100 per cercar¬ 
ne un altro: 


ASCII 8 = freccia sinistra 
ASCII 13 = return 
ASCII 21 = freccia destra 
ASCII 27 = tasto Escape 
ASCII 67 = C 


La linea 4120 pulisce la linea che è 
utilizzata per verificare le istruzioni 
d’azione. La linea 4130 imposta la va¬ 
riabile di "vecchia scelta" OS in modo 
che sia la "scelta corrente", CS. Poi se è 
stata premuta la freccia sinistra o de¬ 
stra la linea 4140 o 4150 sottrae o ag¬ 
giunge uno a CS, aggiusta CS se esce 
dall’arco compreso fra 1 e S (il numero 
delle scelte) e richiama la subroutine 
(linee da 150 a 154) che stampa la 
"vecchia" scelta in normale e la "nuova" 
scelta in campo inverso. 

Per determinare la posizione di 
VTAB delle due voci di selezione in 
questa subroutine viene impiegato lo 
stesso algoritmo usato per stampare 
l’intera lista, alla linea 4040. Dopo che 
il "cursore" è stato spostato, il pro¬ 
gramma torna a linea 4100 per indivi¬ 
duare la nuova battuta di tasto. 

Se invece di una freccia viene pre¬ 
muto il tasto RETURN, la linea 4160 
stamperà l’istruzione di "azione" sulla 
riga 21 dello schermo, per la verifica. 
Nel programma definitivo, natural¬ 
mente, l’azione sarà eseguita anziché 
stampata. Se viene premuto il tasto 
ESCAPE, il controllo del programma 
salta alla linea 6000, cioè al segmento 
che scrive il file di testo. 

Cambiare le scelte 

Dato che tutte le altre possibilità 
sono state esplorate, se l’esecuzione 
del programma giunge fino a questo 
punto, il tasto che è stato premuto de- 
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ve essere necessariamente la lettera 
"C". Le linee da 4190 a 4350 sostitui¬ 
scono temporaneamente il "modello” 
del nostro schermo di scelta con la vo¬ 
ce di selezione e l’istruzione di azione 
relative alla "scelta corrente" al mo¬ 
mento in cui è stato premuto "C", e 
anche una linea di istruzione. Il curso¬ 
re compare come primo carattere lam¬ 
peggiante della voce di selezione. Se si 
preme il tasto RETURN a questo pun¬ 
to (siamo a linea 4220) la voce di scelta 
resta immutata e il cursore lampeg¬ 
giante si sposta sul primo carattere 
dell’istruzione di azione. Se si è pre¬ 
muto un tasto qualunque, con l’ecce¬ 
zione di RETURN, viene stampato 
quel carattere, cancellata la linea fino 
alla fine, stampato uno spazio lampeg¬ 
giante come cursore e definito S$ co¬ 
me carattere che è stato introdotto (li¬ 
nea 4240). Poi viene controllata la bat¬ 
tuta del tasto seguente, e quando ne 
viene ricevuta una, viene introdotta la 
subroutine delle linee 110—120. 

Poi si ripete la scena con l’istruzione 
d’azione. Il punto essenziale di tutto 
questo è che l’utente può tornare in¬ 
dietro e cambiare le voci di selezione o 
le istruzioni di azione fino a quando 
vanno bene prima che il segmento di 
programma venga scritto su dischetto 
come file di testo. 

Subroutine di input 

Le linee da 110 a 120 sono una rudi¬ 
mentale imitazione di quello che fan¬ 
no normalmente le routine del moni¬ 
tor dell’Apple. Però certi caratteri 
vengono esclusi e non è permessa la 
loro cattura in una stringa di input da 
tastiera. A linea 110, lo strabe di ta¬ 
stiera viene pulito e la stringa S$ viene 
impostata su "nullo" (niente del tutto). 
Poi nella linea 112 viene stampato un 
cursore lampeggiante (usando il punto 
e virgola, di modo che non sia inviato 
un fine linea) e viene controllato se sia 
stato premuto un tasto. Se NON è sta¬ 
to premuto un tasto (vale a dire il valo¬ 
re nella locazione —16384 è inferiore a 
128) viene fatto il reset della posizione 
orizzontale del cursore (in modo di 
non far avanzare il cursore) e si ripete 
il loop. 

Se È STATO premuto un tasto, il 
test IF è falso e si scende alla linea 114. 
Per rendere più facile l’interpretazio¬ 
ne del programma si sottrae 128 dal 
valore nella locazione -16384, e si ha 
così il valore ASCII diretto del tasto 
che è stato premuto. Se quel tasto era 
RETURN (ASCII 13) si "arretra" di 
un carattere sullo schermo (decremen- 


tando la posizione orizzontale del cur¬ 
sore, locazione 36), e la linea viene 
cancellata fino alla fine (CALL —868) 
spegnendo il cursore lampeggiante; si 
fa un PRINT, per concludere la serie 
dei PRINT seguiti da punto e virgola, 
e si salta all’istruzione di ritorno dalla 
subroutine a linea 120. Funzionerebbe 
lo stesso se GOTO 120 fosse sostituito 
con RETURN, ma la tecnica adottata 
mantiene l’unità della subroutine (una 
sola uscita dalla routine), ed è questa 
una buona prassi alla quale abituarsi. 

Comando 
di spazio indietro 

L’altro tasto speciale che viene uti¬ 
lizzato è la freccia sinistra (o tasto di 


"spazio indietro", ASCII 8), per poter 
correggere gli errori fatti nell’introdu¬ 
zione di una stringa. Se ci sono già 
nella stringa almeno due caratteri pri¬ 
ma che sia premuto uno spazio indie¬ 
tro , la linea 116 IF risulta falsa al test e 
la linea 117 provvede all’arretramento 
di uno spazio abbreviando la stringa 
che stiamo formando (si veda il para¬ 
grafo seguente), arretrando il cursore, 
cancellando fino alla fine della linea e 
tornando indietro in loop alla ricerca 
di un’altra battuta di tasto. Ma se la 
freccia sinistra venisse premuta o pri¬ 
ma che fosse stato premuto qualsiasi 
altro tasto o proprio dopo il primo ca¬ 
rattere della stringa l’"arretramento" 
del cursore porterebbe a una posizio¬ 
ne indesiderata del cursore stesso (un 
valore negativo non valido se si è parti- 


4240 FRINÌ CHRi (K - 128);: FLASH : PRINT * *;: NORMAL : POKE 
36.HT + 1:S$ = CHRi <K - 128) 

4250 K = PEEK ( - 16384): IF K < 128 7HEN 4250 
4260 POKE - 16368,0: GOSUB 114:S1Ì(CS) = SI 
4270 POKE - 16368,0: VTAB 4: HTAB Hi: PRINT SIÌ(CS) 

4280 VTAB 7: FLASH : HTAB HT: PRINT LEFTi <SA*(CS),1);: NORMAL 

4290 K = PEEK ( - 16384): IF K < 128 THEN 4290 
4300 POKE - 16368,0: HTAB HT: CALL - 868: IF K = 128 + 13 THEN 
PRINT SAÌ(CS): GOTO 4340 

4310 PRINT CHRi (K - 128);: FLASH : PRINT ” N0RML : POKE 
36,HT + 1:SÌ = CHRi (K - 128) 

4320 K = PEEK ( - 16384): IF K < 128 THEN 4320 
4330 POKE - 16368.0: GOSUB 114:SAÌ<CS) = Si 
4340 VTAB 7: HTAB 1: PRINT SAKCS) 

4350 GOTO 4000 

5999 END 

6000 REM : : ISCRIVE IL FILE::: 

6010 HOME : UTAB 10: INVERSE : PRINT 'STO CREANDO IL FILE DI T 
ESTOiSELECT.SEG.' : NORMAL 
6020 PRINT Di’QPEN SELECT.SEG" 

6030 PRINT WCL0SE- 

6040 PRINT Di'DELETE SELECT.SEG'* 

6050 PRINT DI'OPEN SELECT.SEG* 

6060 PRINT Oi'WRITE SELECT.SEG" 

6070 IF S > 10 THEN PRINT LN;*0NERR GOTO’;LN 4 LI * 2:LN = LN 
+ LI 

6080 IF S > 10 THEN PRINT LNj'DIMSIiCjS;*)*:LN = LN + LI 
6090 PRINT LN;‘POKE216,0:HT=*;HT;“:SN=*;S;*:Q$=CHRÌ(34)" ; : IF 
HL THEN PRINT B :HL=" 

6100 PRINT 

6110 IF N0T HL THEN 6190 
6120 F0R X = 0 T0 HL - 1:S$ = "*:LN = LN + LI 

6130 F0R Y = 1 T0 LEN <HLÌ(X)):CQi = MIO» (HLI(X).Y.l): IF C 

0$ = 0$ THEN Si = Si + 0$ + "+0$+* + 0$: GOTO 6150 
6140 Si = Si 4 C8» 

6150 NEXT Y 

6160 PRINT LN; 1 HLÌ( * ;X;' )=' :Qi; SI ; 0$ 

6170 NEXT X 

6190 F0R X = 1 TO S:SÌ = **:LN = LN 4 LI 

6200 F0R Y = 1 T0 LEN (SlÌ(X)):CQi = MIDi <SIÌ(X).Y,1>: IF C 

Qi = 01 THEN Si = SI 4 Qi + ■+(»+■ + Q* : GOTO 622Ù 
6210 Si = Si + CQi 
6220 NEXT Y 

6230 PRINT LN;"SI^< " ;X: “ )=*;Qi;SÌ;Qi 
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ti nella colonna 1 dello schermo). La 
linea 116 controlla prima se sia così e 
gestisce la situazione reimpostando le 
cose come erano quando è stata intro¬ 
dotta la subroutine. 

Infine se il tasto premuto non era né 
RETURN né la freccia sinistra, la li¬ 
nea 118 aggiunge alla stringa S$ il ca¬ 
rattere corrispondente al valore 
ASCII battuto (perfino i caratteri di 
controllo!), "retrocede" e stampa il ca¬ 
rattere sullo schermo, pulisce lo strabe 
di tastiera e torna indietro in loop per 
cercare un'altra battuta di tasto. Come 
si può vedere, quando la subroutine 
ritorna il controllo al programma prin¬ 
cipale ("chiamante") S$ contiene la 
stringa desiderata, compresi gli even¬ 
tuali segni di punteggiatura e caratteri 
di controllo. 


Comando 

del cursore inverso 

L’altra subroutine che interessa è 
quella che gestisce il "cursore" in cam¬ 
po inverso, spostandolo dalla "vec¬ 
chia" scelta alla scelta "corrente" quan¬ 
do è stata premuta la freccia sinistra o 
destra. Questa subroutine è a linea 
150—152. Nella parte "Visualizzazi¬ 
one" del nostro programma principa¬ 
le, le linee 4140 e 4150 richiamano 
questa subroutine dopo aver imposta¬ 
to OS (vecchia scelta) sulla scelta cor¬ 
rente (CS), poi, reimpostato CS a se¬ 
conda della freccia che è stata premu¬ 
ta, esegue un aggiustamento se OS va 
a zero o supera il numero delle opzio¬ 
ni. Nel segmento di programma gene¬ 


rato comparirà la stessa logica, ma a 
numeri di linea diversi, a seconda dei 
criteri scelti per la numerazione delle 
linee. 

Dopo aver determinato OS e CS, il 
programma principale fa un GOSUB 
e la nostra routine riscrive semplice- 
mente le due linee; quella "vecchia" in 
NORMAL e quella nuova, "corrente", 
in INVERSE. Il calcolo di VTAB ac¬ 
corda posto al numero delle righe d’in¬ 
testazione più due linee vuote, e alla 
doppia spaziatura fra le scelte se ce ne 
sono meno di dieci. È possibile, natu¬ 
ralmente, che si superi il numero con¬ 
sentito di linee sullo schermo con una 
combinazione di troppe righe d’inte¬ 
stazione e linee di selezione. Sarebbe 
possibile controllare anche questo, ma 
si è ritenuto superfluo in quanto, nella 
maggior parte delle applicazioni, 2 o 3 
righe d'intestazione sarebbero proba¬ 
bilmente il massimo desiderato, e vi si 
può provvedere con questo algoritmo. 
E se il numero delle voci di selezione 
non causa un "overflow" si possono 
usare righe d’intestazione in maggior 
numero. 

Scrivere il file di testo 

Per prima cosa si incontrano, nelle li¬ 
nee 6020—6060, i comandi DOS del 
manuale, che servono per cancellare 
ogni eventuale file esistente denomi¬ 
nato SELECT.SEG, e per aprire poi 
un tale file da scrivere. Di mano in 
mano che ciascuna linea del segmento 
di programma viene scritta nel file, il 
numero di linea (che all’inizio è come 
lo si è specificato a piacere quando 
chiesto dalla linea 1020) è incrementa¬ 
to di LI (che è stato dato dall’utente in 
risposta alla richiesta di linea 1070). 
Anche i riferimenti in avanti sono cal¬ 
colati usando questo incremento. 

Le linee 6070 e 6080 scrivono linee 
nel file di testo solo se c’è la necessità 
di dimensionare la matrice stringa che 
conterrà le stringhe delle voci di sele¬ 
zione. Questo si verifica nell’evenien¬ 
za che ci siano più di dieci voci, dato 
che le matrici dell’Applesoft fanno il 
default all elementi se non esplicita¬ 
mente dimensionate. Si è deciso di 
non usare l’elemento di matrice (0), 
solo per semplificare i riferimenti di 
indice, e quindi in qualsiasi caso si su¬ 
peri dieci, questo vuol dire che la ma¬ 
trice deve essere dimensionata. 

Ma nel caso in cui il segmento di 
visualizzazione sullo schermo potesse 
essere adoperato più di una volta nel 
programma di destinazione finale, 
non sarebbe corretto che il program¬ 
ma si bloccasse con un errore di ?RE- 


6240 NEXT X 

6250 LN = LN + LI: PRIMI LN;”TEXT: HOME" 

6260 IF HL THEN LN = LN + LI : PRINT LN;"INVERSE :FORX=OTOHL-1:P 
RIMTHL9(X);:NEXTX:PRINT:N0RMAL" 

6270 LN = LN + LI: PRINT LN; , CS=1" 

6280 LN = LN t LI: PRINT LN;"F0RX=1T0SN:1FX=CSTHENINVERSE” 

6290 LN = LN 4 LI: PRINT LN;"v r TABHL+2+X+X*(^l<iO):HTABHT:PRINTS 

WX) :N0RMAL" 

6300 LN = LN + LI: PRINT LN:”NEXTX” 

6310 XI = ”VTAB23:INVERSEiPftINT” + 0$ 4 •{-• + Q$ + • ; :N0RMAL:P 
RINT" 4 0$ 4 » " + Q$ + "; : INVERSE:PRINT“ 4 Q$ 4 ”->” 4 Q9 
4 1 ;:N0RMAL* 

6320 Xi = XÌ 4 ’ :PR1NT‘ OH' SELEZIONE .... * 4 Q* + *;;1NV 
ERSE :PRINT’ 4 Q* + “RETURN” 4 Q$ + ";:NORNAL:PRINT” 4 Q9 + 

” ESECUZIONE.” 4 Q9 
6330 LN = LN 4 LI : PRINT LN;X$ 

6340 LN = LN 4 LI: PRINT LNj'PQKE-16368.0” 

6350 LN = LN 4 LI: PRINT LNj”K=PEEK<-16384):IFK<128THEN”;LN 

6360 LN = LN 4 LI: PRINT LN;”P0KE-16368.0:K=K-128:IFK<>84wDK<>2 

1ANDK013THEN”;LN - LI 
6370 LN = LN 4 LI: PRINT LN;”0S=CS” 

6380 LN = LN 4 LI: PRINT LN;”IFK=8THENCS=CS-1:CS=CS*(CS>0)4SN*( 

CS=0):GOSUB”;LN 4 LI 4(2 4 S> * LI:":GOTO”:LN - 3 * LI 
6390 LN = LN 4 LI: PRINT LN:”IFK=21THENCS=CS4l:CS=CS*<CS<=SN)4( 
CS=SN+1):GOSUB”;LN 4 Li 4 <1 + S> * LI ;”: GOTO”;LN - 4 * LI 

6400 LN = LN 4 LI: PRINT LNj’ONCSGOSUB”;LN 4 L1::LN = LN 4 LI 

6410 F0R X = 1 T0 S - 1 : LN = LN 4 LI: PRINT V;LN;: NEXT X: PRINT 

”:G0T0”:LS 4 HL * LI 4 S * LI 4 LI 
6420 LN = LN'- S • LI : F0R X = 1 T0 S:LN = LN 4 LI: PRINT LN;SA 
f(X):”:RETURN”: NEXT X 

6430 LN = LN 4 LI: PRINT LN;”VTABHL4240S4OS*<SN<10):HTABHT:PRIN 
TSIKOS)" 

6440 LN = LN 4 LI: PRINT LN; 1 VTABHL+2* CS+CS*(SN <10): IW7ERSE:HTA 
BHTiPRINTSWCS) :N0RMAL : RETURN" 

6450 PRINT DVCLQSE" 

6460 VTAB 10: CALL - 868: KTAB 16: PRINT 'FATTO” 

6470 VTAB 13: PRINT "IL SEGMENTO DI PROGRAMMA 'SCHERMO DI S 
ELEZIONE' 1 E' CONTENUTO NEL FILE ”: PRINT 09;"SELECT.SEG”:Q 

^ , H R 

6480 OTÀB 16: PRINT 'PUOI BATTERE EXEC SELECT.SEG' NEL TUO P 
R0GRAMMA DI DESTINAZIONE. OCCUPERÀ' I NUMERI DI LINEA DA 
”;: INVERSE : PRINT LS;: NORMAL : PRINT “ A ”;: INVERSE : PRINT 
LN;: NORMAL : PRINT ”.” 

6490 END 
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DIM’D ARRAY, quindi se occorre 
l'istruzione di dimensionamento DIM 
la si fa precedere da una "trappola di 
errore", la quale continua semplice- 
mente l’esecuzione alla linea che se¬ 
gue l’istruzione di dimensionamento. 
Questo è in pratica il primo esempio di 
calcolo di un "riferimento in avanti": 
LN + LI * 2, ossia due linee oltre il 
numero di linea corrente. 

Il numero di linea successivo fa il 
reset della condizione ONERR (PO- 
KE 216,0) e inizializza le variabili per 
HT (valore di HTAB per la visualizza¬ 
zione della voce di selezione), SN (nu¬ 
mero delle scelte) e HL (numero delle 
righe d’intestazione). Si noti che que¬ 
st'ultimo viene omesso se l’utente non 
ha chiesto righe d’intestazione. Dato 
che tutte le precedenti istruzioni 
PRINT vengono fatte seguire da un 
punto e virgola in modo che tutte quel¬ 
le istruzioni entrino a far parte della 
stessa linea, occorre un ulteriore 
PRINT a linea 6100 per chiudere la 
linea e inviarla al file di testo. 

Il blocco seguente (6120—6170) vie¬ 
ne saltato se non ci sono righe d’inte¬ 
stazione. Altrimenti ogni riga d’inte¬ 
stazione viene convertita in stringa, 
carattere per carattere, nel loop che va 
da linea 6130 a linea 6150. Questo per¬ 
ché si vuole ammettere le virgolette 
nell’intestazione e nelle voci di sele¬ 
zione, e quindi occorre essere in grado 
di passare il carattere ASCII 34 al file 
di testo. Ma se esso viene passato co¬ 
me parte della stringa, si guardi qual è 
la conseguenza quando si racchiude la 
STRINGA fra virgolette, come si do¬ 
vrebbe fare per creare un’istruzione 
che definisca la stringa nel segmento 
del programma: 

9150 HL$ (l)="QUESTO È UN CA¬ 
SO "TEST"" 


Al momento dell’esecuzione, natu¬ 
ralmente, questo produrrebbe il 
***SYNTAX ERROR dell’Apple- 
soft. Si può evitare questa situazione 
"intrappolando" tutte le eventuali vir¬ 
golette interne (a linea 6130) e sosti¬ 
tuendole con la forma SIMBOLICA 
di un segno di virgolette, di modo che 
invece di creare una linea come quella 
vista sopra, si scriverà: 

9150 HL$ (l)="QUESTO È UN"+Q- 
$+"CASO"+Q$" TEST" 


dove in precedenza (nel segmento di 
programma generato) si è assegnato il 
valore ASCII 34 a Q$. Questo avvie¬ 
ne, di fatto, nelle istruzioni di inizializ- 
zazione create dalla linea 6090. 


Dopo essere stata costruita in que¬ 
sta maniera, ogni riga d'intestazione 
viene introdotta nel file dalla linea 
6160. Poi si costruiscono in analogo 
modo le assegnazioni di matrice delle 
voci di selezione: SI$ (—). 

Quindi, cominciando a linea 6250, si 
memorizzano linee di programma che 
saranno assai simili a quelle della se¬ 
zione "Display" dell’AUTOSCHER- 
MO stesso, nei paraggi della linea 
4000. La linea 6400 costruisce un’istru¬ 
zione ON...GOSUB...sulla base del 
valore di CS. La linea 6410 completa 
l’istruzione calcolando il numero di li¬ 
nea (con riferimento in avanti) che sa¬ 
rà assegnato a ciascuna subroutine di 
"azione", e aggiungendo una virgola 
più l’espressione di stringa per il nu¬ 
mero di linea dell’istruzione "GOS- 
UB". Poi la linea 6420 fa i reset di LN 
(che era stato avanzato per creare l’i¬ 
struzione GOSUB) e scrive effettiva¬ 
mente nel file di testo ognuna delle 
linee GOSUB. 

Le linee 6430 e 6440 scrivono nel file 
la subroutine "spostatrice del cursore" 
e il lavoro è fatto. Be’, quasi fatto. Il 
file termina con CLOSE e scrive sullo 
schermo un breve e utile messaggio, 
comunicando all’utente quali numeri 
di linea saranno utilizzati nel segmen¬ 
to di programma appena creato. Il 
messaggio ricorda inoltre all’utente 
come utilizzare il file generato, prov¬ 
vedendo a farne l’EXEC nel program¬ 
ma di destinazione. 

Conclusione 

Troverete questo schermo di scelta, 
o generatore di "menù", un incredibile 
strumento per risparmiare tempo. Es¬ 
so produrrà ogni volta un segmento di 
programma esente da errori, sempre- 
ché le istruzioni "di azione" dell’utente 
usino una sintassi valida. Se una sola 
linea delle istruzioni di "azione" non è 
sufficiente, si rammenti che si può 
sempre fare dell'istruzione di "azione" 
un GOTO o un GOSUB a un numero 
di linea esterno al segmento, e poi scri¬ 
vere tutto il codice che si vuole. Oppu¬ 
re si può scrivere parte dell’istruzione, 
e poi aggiungerle‘altro dopo averne 
fatto l’EXEC nel proprio programma. 
Questo farà ancora risparmiare il no¬ 
vanta per cento del tempo che occor¬ 
rerebbe altrimenti per la stesura e il 
debugging di un analogo "menù". 


Questo programma è disponibile su 
dischetto. L’elenco, i prezzi e le 
modalità d’ordine di questo e degli altri 
dischetti disponibili sono riportati nella 
rubrica Disk Service. 
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Z’ Data base? 
Facile, veloce 

e su misura... 


A seconda di come vengono messi in relazione tra di loro, i dati inseriti nel 
Data Base del programma Tre per Te possono dare risultati completamente 
diversi, quindi soddisfare le esigenze più personali. L’importante è... 


I l concetto di Data Base è molto 
semplice: una serie di dati di base 
che poi, a seconda di come vengono 
relazionati tra di loro, forniscono de¬ 
terminate informazioni. Appleworks 
contiene in sé un Data Base non 
preimpostato, ma facilmente imposta¬ 
bile, la cui caratteristica principale è 
l’adattabilità all’uso personale. 

Una volta avviato Appleworks, sce¬ 
gliete l’opzione "aggiungi file sulla 
scrivania", "Data Base" e "ex—novo". 
A questo punto il computer vi chiede 
un nome per il nuovo file. In questo 
articolo dedicato all’uso del Data Base 
di Appleworks, costruiremo un mo¬ 
dello molto semplice che risulterà alla 
fine un’esercitazione più che un mo¬ 
dello da utilizzarsi anche in seguito. 
Diamogli comunque il nome magazzi¬ 
no (figura 1) . 

Battuto Return, lo schermo si pre¬ 
senta come nella figura 2. la scritta 
Campo 1 serve solo a ricordare che lì 


va inserita la prima definizione del Da¬ 
ta Base che andiamo a costruire. Por¬ 
tate il cursore, usando la freccia de¬ 
stra, subito dopo l’I e tornate indietro 
con il Delete. 

Poniamo di voler fare un Data Base 
che gestisca un magazzino di vini. Al 
posto di campo 1 metteremo VINO, 
poi Return e DATA AC., per data 
acquisto, Return, PREZZO AC., Re¬ 
turn, DATA VEN., che sta per data 
vendita, Return, PREZZO VEN. 
Uno dei primi segreti da imparare è di 
essere molto sintetici nelle definizioni, 
perché altrimenti si occupa troppa me¬ 
moria a scapito del numero di schede 
che è possibile inserire nel modello 
che si sta costruendo. Una volta termi¬ 
nato di impostare il Data Base (figura 
3) , battete ESC. Compare in questo 
caso a video il seguente messaggio: 
"Questo file non contiene ancora nes¬ 
suna informazione. Quindi ti troverai 
automaticamente nella sezione inseri¬ 


mento record", e una nota in basso a 
sinistra vi suggerisce di premere la bar¬ 
ra spaziatrice per continuare. Una vol¬ 
ta premuta la barra spaziatrice, potre¬ 
te cominciare a inserire i dati nella 
prima scheda. Se a questo punto vi 
accorgete di aver dimenticato di inse¬ 
rire qualche campo, niente paura: ba¬ 
sta premere Escape, poi mela vuota N 
per poter eseguire delle correzioni sia 
per quanto riguarda il nome del file, 
sia per quanto riguarda eventuali cam¬ 
pi da cancellare o eventali campi nuovi 
da inserire (figura 4) . Posizionate il 
cursore nella riga dove compare DA¬ 
TA AC. e premete mela vuota I. Ave¬ 
te creato così una riga vuota tra VINO 
e DATA AC. Posizionate il cursore 
all’inizio di questa riga vuota, battete 
ANNATA e Return. Posizionate il 
cursore nella riga dove compare 
PREZZO AC. ed eseguite la medesi¬ 
ma operazione per inserire QUANTI¬ 
TÀ. Portate il cursore nella riga dove 



































compare PREZZO VEN. e inserite 
ancora una riga bianca, dove scrivere¬ 
te per la seconda volta QUANTITÀ. 
Se invece vi dovesse capitare di elimi¬ 
nare uno o più campi, basta semplice- 
mente posizionare il cursore nel cam¬ 
po che si vuole eliminare e battere me¬ 
la vuota E. 

Per utilizzare questo programma 


NATA: 1976. In corrispondenza del 
campo DATA AC. è da notare un 
fatto particolare: scrivete la data 5 
aprile 1978 in questo modo: 5.4.1978; 
una volta battuto Return, automatica¬ 


guire la medesima operazione selezio¬ 
nando un campo numerico e mettendo 
quindi tutto il vostro Data Base in or¬ 
dine crescente (o decrescente) per un 
determinato valore. 


non è necessario ricordare tutto a me¬ 
moria, perché di volta in volta alcuni 
messaggi compaiono a video per ricor¬ 
dare le diverse operazioni che è possi¬ 
bile eseguire in qualsiasi momento. 
Per esempio, sempre facendo riferi¬ 
mento alla figura 4, possiamo vedere 
che nella prima riga in alto il computer 
ci dà tre indicazioni: 1) File: Magazzi¬ 
no. Significa che stiamo lavorando a 
un file che si chiama Magazzino. 2) 
Cambia nome/campo. Significa che 
stiamo operando all’interno dell’op¬ 
zione che ci permette di cambiare il 
nome del file e intervenire per modifi¬ 
care, aggiungere o cancellare i campi. 
3) Esc:Rev/Agg/Modifica. Significa 
che se premiamo il tasto Escape ci ri¬ 
troviamo nel modo Revisione, Ag¬ 
giunta, Modifica delle varie schede 
che compongono il file. Noi dobbiamo 
a questo punto proprio battere Esca¬ 
pe. Premee la barra spaziatrice, posi¬ 
zionatevi su Sì premendo freccia de¬ 
stra e battete Return. Compilate la 
prima scheda. In corrispondenza di 


mente il computer scriverà 5 Apr 78 

(figura 5) . 

Per poter constatare meglio tutte le 
possibilità che offre il Data Base del- 
l’Appleworks occorre riempire alcune 
schede: fate riferimento alla figura 6 e 
ricopiatene i dati, scheda per scheda, 
facendo attenzione a inserire le date 
come detto più sopra. 

Una delle possibilità più interessan¬ 
ti che offre il Data Base è l’ordinamen¬ 
to alfabetico o numerico su uno qua¬ 
lunque dei campi. Posizionate il curso¬ 
re, in una scheda qualunque, alla voce 
VINO e premete mela vuota O: a vi¬ 
deo compare quanto si può vedere nel¬ 
la figura 7. Evidenziate col cursore lu¬ 
minoso l’opzione 1 e premete Return. 
Una volta terminato l’ordinamento, 
premete mela vuota Z, l’opzione di 
Zoom, che permette di vedere a video 
anziché una singola scheda in vertica¬ 
le, quindici schede in orizzontale con 
possibilità di scroll usando le frecce su 
e giù. Vi renderete subito conto che 
tutte le schede sono state messe in or- 


Nell'esempio che abbiamo costruito 
l’opzione che vedremo ora non serve a 
molto, ma immaginate di dover indivi¬ 
duare una determinata scheda in mez¬ 
zo ad altre cinquecento... Battete me¬ 
la vuota C: vi si presenterà a video la 
figura 8. A questo punto dovete batte¬ 
re, come vi richiede il computer, i dati 
di confronto. Scrivete Barolo e preme¬ 
te Return: immediatamente a video vi 
viene presentata la scheda del vino Ba¬ 
rolo. 

Un’altra utile possibilità fornita da 
questo programma è di selezionare, 
premendo mela vuota R, tutti i record 
che abbiano determinate caratteristi¬ 
che. A video viene presentato l’elenco 
dei campi e bisogna selezionare quello 
sul quale vogliamo che il programma 
esegua la sua scelta ristretta. Scegliete 
il campo ANNATA e battete Return: 
comparirà a video il messaggio della 
figura 9. Sono 12 le possibilità offerte. 
Scegliete la prima, uguale , e battete 
Return: vi verrà chiesto di battere i 
dati di confronto: scrivete 1978 e bat- 


VINO scrivete Barolo; vicino ad AN- 


dine alfabetico per vino. Potreste ese- tete Return. Sul video compare il mes- 
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1. Prendi un fornito prospetto 

2. Crea un nuovo tornato 'tabella' 

3. Crea un nuowo tornato 'etichetta' 

4. Duplica un tornato esistente 

5. Cancella un tornato 



•ro, o usa le trecce e preni Return 





File: Magazzino 
Prospetto: Rimanenze 
Selezione: AftfATA- uguale 1978 
o AM4ATA- uguale 1979 


FORMATO PROSPETTO Esc: Menù di Prospetto 

13 


—> o <-- Spostare il Cursore S-K Definire un campo calcolato 

> § < Scambiare posizione dei campi l-N Cambiare il Nome/titolo prospett 

--> S Modificare ampiezza colonne §-0 Ordinare secondo questo campo 

§-E Eliminare questo campo §-P Cambiare i Parametri di stampa 

§-G Agg./togliere totali per Gruppi §-R Cambiare le Regole di selezione 

§-I Inserire il campo cancellato prima S-S Stampare il prospetto 

§-J Giustificare a destra questo campo §-T Agg./Togliere Totali per campi 


VINO 

ANfATA- 

DATA AC. 

QUANTITÀ- 

PREZZO AC. 

DATA VEN. 







BAROLO 

197 6 

5 App 78 

1000 

2000 

5 Giu 80 

BORDEAUX 

1975 

12 Mar 82 

2000 

2200 

21 Mag 83 

CARTIZZE 

1982 

20 Set 83 

2500 

2200 

18 Mar 84 


Usa i seguenti comandi per modificare il formato 


— Altri --> 
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saggio della figura IO. in parole pove¬ 
re, avete chiesto di individuare tutti i 
record, all’interno del campo ANNA¬ 
TA, che riportino l’anno 1978; ora po¬ 
tete integrare questa informazione 
con altri criteri di selezione. Per esem¬ 
pio, potete dire al computer di sceglie¬ 
re tutti i record che, nel campo AN¬ 
NATA riportino 1978 e 1979. Sappia¬ 
mo che questo, nel nostro caso, non è 
possibile, in quanto il campo ANNA¬ 
TA riporta un anno solo. Possiamo 
dire al computer di scegliere tutti i re¬ 
cord che riportano 1978 o 1979. Que¬ 
sto sì che è possibile e pertanto sceglia¬ 
mo l’opzione 2 del menù riportato nel¬ 
la figura 10. Avremmo potuto anche 
scegliere l’opzione 3, sempre della fi¬ 
gura 10, con la quale avremmo detto al 
computer di selezionare tutti i record 
contenenti da 1978 a, per esempio, 
1982. 

Il risultato di questa selezione è visi¬ 
bile nella figura 11. Per avere nuova¬ 
mente selezionati tutti i campi del Da¬ 
ta Base appena creato dobbiamo nuo¬ 
vamente premere mela vuota R: il 
computer visualizza il messaggio: "se¬ 
leziona tutti i record?" Posizionate il 
cursore luminoso su sì e battete Re¬ 
turn. A questo punto, avrete nuova¬ 
mente disponibili tutti i record inseriti 
fin qui. 

Due sono i formati di stampa che è 
possibile ottenere con il Data Base 
dell’Appleworks: etichette e tabelle. 
Del formato per ottenere le etichette 
ci occuperemo in uno dei prossimi arti¬ 
coli. Per quanto riguarda le tabelle, 
premete mela vuota S e otterete sul 
video il menù della figura 12. Le op¬ 
zioni 1, 4 e 5 si riferiscono a formati 
creati in precedenza, pertanto sceglie¬ 
te l’opzione 2: vi viene chiesto di dare 
un nome a questo prospetto. Chiama¬ 


telo Rimanenze e battete Return. 
Compare a questo punto a video il 
menù della figura 13. Per prima cosa, 
diminuite la lunghezza dei campi in 
modo funzionale, cioè per poter avere 
a video, quindi poi sul foglio di stam¬ 
pa, il maggior numero di dati. Inoltre, 
è inutile, per esempio quando il campo 
prevede solo l’anno, avere più spazio 
disponibile di quanto ne occupa l’anno 
stesso. Per fare questo, posizionate il 
cursore, usando le frecce, all’inizio di 
ogni campo e premete mela vuota 
freccia sinistra. 

Ora posizionatevi col cursore sul 
campo DATA VEN. e premete mela 
vuota K. Avete creato così un nuovo 
campo "calcolato", cioè un campo al¬ 
l’interno del quale potete mettere in 
relazione di calcolo i campi che lo pre¬ 
cedono. Dovete innanzitutto dare un 
nome a questo campo: chiamatelo 
SPESA A., che sta a significare spesa 
di acquisto, battete Return e una nuo¬ 
va scritta, in basso a sinistra, vi chiede¬ 
rà di battere la formula. Scrivete: 
D*E, cioè praticamente moltiplicate 
la quantità (colonna D) per il prezzo di 
acquisto (colonna E) in modo da avere 
nel nuovo campo creato la spesa finale 
per l’acquisto di ogni tipo di vino. Un 
messaggio a questo punto chiede 
quanti decimali volete: rispondete in 
questo caso 0, semplicemente batten¬ 
do Return. Vi chiede inoltre quanti 
spazi bianchi deve lasciare dopo que¬ 
sto campo: per default ve ne propone 
tre, voi mettete 1 al posto di 3 e battete 
Return. 

Posizionatevi ora sulla colonna D 
corrispondente alla quantità acquista¬ 
ta e premete mela vuota T. Il compu¬ 
ter vi chiede quanti decimali volete: 
ripetete la procedura esposta nelle ri¬ 
ghe precedenti. Eseguite la stessa ope- 




Software 

Contabilità generale 80CL Prodos 
Contabilità semplificata 
multiaziendale 
Gestione Parrocchie 
Gestione Alberghi 
Parcellazione studi legali 
Fatturazione su MAC 


Hardware 

Interfacce per Olivetti 
ET 121 /201 /221 / 111 
Interfacce per Adler 
G 8008 SE /1005 / 1010 / 1030 




INFORMATICA 

BIELLA 

VIA ROMA 11 
13051 BIELLA 
TEL. 015-29.875 
24.181 


RIVENDITORE AUTORIZZATO 

Q^appkz computer ine. 
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SCHEDE PER ACQUISIZIONI ANALOGICHE 


Mod.: XAD 1 • n. catalogo: 060160 

A / D converter 12 bit con orologio e 4 reed relays • Sezione A / D con ver¬ 
ter: 4 canali con multiplexer analogico guadagno fisso range 0-5 V uni¬ 
polari. - Stabilità di conversione = 50 ppm / C. • Tempo di conversione 
10 millisecondi per canale. - Non linearità + / — 0.1% fondo scala. • Pro¬ 
tezione input fino a + 50 V. Tecnica di conversione: integrazione. 

Mod.: XAD-2 - n. catalogo: 060161 
A / D converter 12 bit con ingressi a guadagno variabile, ingressi a gua¬ 
dagno fisso e 2 reed relays. • Sezione A / D converter. 3 canali con multi¬ 
plexer analogico con guadagno fisso 0-5 V unipolari. 2 canali con 
multiplexer analogico ingressi differenziali con guadagno variabile pro¬ 
grammabile da un range di 0-10 mV ad un range di 0-2.5 V fondo scala 
in step di ragione 2 da 1 a 128. 

Mod.: 11 04 - n. catalogo: 060162 

A/D converter 12 bit high-speed con ingressi differenziali a guadagno 
variabile. Numero canali: 8 - Ingressi: completamente diffrenziali da + / — 
0-10 mV a + / — 10 V. • Risoluzione: 12 bit - Tempo di conversione: 25 
microsecondi a 12 bit, 15 microsecondi a 8 bit - Guadagno: programma- 
bile in step binari da 1 a 128. 



Mod.: A/ D DI A 12 bit • n. catalogo: 060163 
AID converter 16 canali 12 bit veloce con DI A converter veloce 12 bit. 
Sezione A / D conveller - Numero canali: 16 - Ingressi: unipolari - Tensio¬ 
ne di ingresso: 0-9 V a guadagno fisso • Tempo di conversione: 60 mi¬ 
crosecondi / canale - Sezione D / A converter: 1 canale di uscita • Livello 
di uscita: regolabile da 0-4.5 V a 0-9 V tramite trimmer multigiri - Polari¬ 
tà: unipolare o bipolare tramite jumper on-board. Settling time tipico: 1 
microsecondo. 

Mod.: A/D converter 16 canali 8 bit - n. catalogo: 060165 
AID converter veloce ed economico • Canali: 16 unipolari a guadagno 
fisso - Tensione ingresso: 0-5 V • Tempo di conversione: 100 microse¬ 
condi / canale. 

Mod.: A/ A DI A 8 bit - n. catalogo: 060166 
A / D converter 16 canali 8 bit con D / A converter 1 canale 8 bit • Sezione 
AID converter • Risoluzione: 8 bit - Numero canali: 16 - Ingressi: unipo¬ 
lari a guadagno fisso • Sensibilità ingressi: 0-5 V • Tempo di conversio¬ 
ne: 100 microsencondi / canale • Sezione D / A converter Numero canali: 
1. Risoluzione: 8 bit • Output: unipolare, 0-5 V - Tempo di conversione: 
1 microsecondo. 

Mod.: DI A converter 8/16 bit con output TTL • n. ca¬ 
talogo: 060164 

D / A converter 8 bit 2 canali con possibilità di miscelazione tensioni out¬ 
put e 2 canali output a livello TTL • Sezione D / A converter • Risoluzio¬ 
ne: 8 o 16 bit - Numero canali: 2 a 8 bit o 1 a 16 bit - Tensione uscita: 
0-10 V floating, regolabile con trimmers multigiri - Settling time: 1 mi¬ 
crosecondo ■ Commutazione canali: via software, tramite multiplexer ana¬ 
logico • Sezione TTL pori: Numero porte: 2 • Output: livello TTL 
compatibile, sink 20 mA, totem-pole. 

Parallel Port Interface • n. catalogo 050121 
L’interfaccia PARALLEL PORT è una scheda di interfaccia parallela ge¬ 
neralizzata con capacità di servire sino a 24 porte I / O. 

Essa sfrutta le doti di programmabilità dell'8255 INTEL lasciando all’uti- 
lizzatore la specializzazione delle porte I / O. 


A/D D/A CONVERTER PER IBM PC compatibile. 


Mod.: A/D D/A converter 12 bit - n. catalogo: 095163. 

A / D D / A converter 12 bit 16 canali con D / A converter 12 bit singolo 
canale • Sezione Al D converter - Risoluzione: 12 bit (4096 punti) • Nu¬ 
mero canali: 16 con multiplexer analogico - Velocità conversione: 25 mi¬ 
crosecondi/canale • Ingressi: unipolari a guadagno fisso • Tensione 
ingressi: 0-9 V aggiustabile con trimmer multigiri ■ Sezione D / A conver¬ 
ter. - Risoluzione: 12 bit (4096 punti) • Tensione uscita: 0-9 V aggiustabi¬ 
le con trimmer multigiri - Modo uscita: unipolare o bipolare (selezionabile 
con jumper) • La schedina è dotata di connettore I / O tipo CANNON DB25 
femmina, e viene fornita con manuale operatore in lingua inglese e di¬ 
schetto dimostrativo. 

RICHIEDETE CATALOGO: 

OLTRE 90 PRODOTTI PER APPLE E IBM 

■I ?IlTc=caz, ON1 

TORINO - VIA ORMEA, 99 • TEL. Oli 1 655.865 
CONDIZIONI PARTICOLARI PER DEALER E HOBBISTI 



File: Magazzino 
Prospetto: Rinanenze 


VINO 

AWATA DATA AC. 

QUANTITÀ PRE220 AC. 

SPESA A DATA VEN. 

QUANTITÀ- PREZZO VEN. 

RICAVI 

RIMANENZE 

BAROLO 

1976 

5 Apr 78 

1000 2000 

2000000 5 Giu 80 

800 3000 

2400000 

200 

BORDEAUX 

1975 

12 Mar 82 

2000 2200 

4400000 21 Mag 83 

2000 3400 

6800000 

0 

CARTIZ2E 

1982 

20 Set 83 

2500 2200 

5500000 18 Mar 84 

2500 3000 

7500000 

0 

IAMBRUSC0 

1980 

4 Set 83 

1800 1700 

3060000 23 Giu 84 

800 2500 

2000000 

1000 

REFOSCO 


5 Mag 81 

1400 2300 

3220000 15 Ago 83 

1000 3400 

3400000 

400 

SOAVf^ l 


2 Giu 80 

2800 1700 

4760000 30 Ago 82 

2500 2500 

6250000 

300 

VALPilCELI 

L 1»?» 

3 Die 80 

800 1000 

800000 12 Apr 81 

700 1800 

1260000 

100 

J» 

X 


12300* 

23740000* 

10300* 

29610000* 

2000* 


File: Magazzino 
Prospetto: Rimanenze 


PARAMETRI DI STAMPA 


Esc: E1ireina Valore 


—Margini Sinistro e Destro- 


—Margini Alto e Basso- 


Larghezza Carta 

8,0 Pollici 

AC: Altezza Carta 

12,0 Poi 1ic 

Margine Sinistro 

0,0 Pollici 

MA: Margine Alto 

0,0 Pollic 

Margine Destro 

0,0 Pollici 

MB: Margine Basso 

2,0 Pollic 

Car./Poli ice 

17 

LP: Linee/Pollice 

6 

Lunghezza Linea 

8,0 Pollici 

Altezza di Stampa 

10,0 Pollic 

Car ./linea (stili) 

136 

Righe per pagina 

60 


-Opzioni di formato- 

Codici Speciali per la stampante 
Stampa Lineette se un campo è vuoto 
Stampa Titolo a ogni inizio pagina 
Singolo, Doppio o Triplo Spazio (1S/2S/3S) 


Batti le 2 lettere del parametro SL 
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razione con le colonne F, corrispon¬ 
dente a Spese di Acquisto, e H, corri¬ 
spondente alla Quantità venduta: ser¬ 
ve ad avere, alla fine di ogni colonna, 
la somma delle singole voci. 

Quando eseguite le operazioni mela 
vuota T e mela vuota K, le colonne 
all’interno delle quali operate compa¬ 
iono a video come una serie di voci 
fatte tutte di 9: nessuna preoccupazio¬ 
ne, al momento di stampare, questi 9 
si mutano nei numeri che effettiva¬ 
mente sono stati inseriti. 

Posizionatevi alla fine delle colonne 
e premete ancora mela vuota K, per 
definire un altro campo calcolato, che 
chiamerete Ricavi, per ricavo vendite. 
La formula di questo campo sarà H*I. 
Inserite infine ancora un campo calco¬ 
lato dopo Ricavo vendite che chiame¬ 
rete Rimanenze, la cui formula sarà: 
D-H. 

Non resta ora che definire le opzioni 
di stampa, premendo mela vuota P. La 
cosa più importante è mettere un ca¬ 
rattere piccolo, per poter stampare la 
nostra tabella su un unico foglio. 
Quando siete nelle opzioni di stampa, 
battete quindi CP, Return, 17, Re¬ 
turn, Escape. A questo punto, preme¬ 
te mela vuota S, selezionate il tipo di 


stampante alla quale il vostro Apple è 
collegato: il risultato sarà la tabella 
visibile nella figura 14. Da notare, in 
questa tabella, che alla fine della co¬ 
lonna Quantità di Vino acquistato fi¬ 
gura un totale contraddistinto da un 
asterisco, come pure alle colonne Spe¬ 
se di Acquisto, Quantità di Venduto, 
Ricavo del Venduto, Rimanenze. Al¬ 
tro particolare interessante da notare 
nella colonna Rimanenze è che si è 
potuto ottenere, record per record, il 
totale rimasto nel magazzino, di vino 
non venduto. Affinché nelle caselle in 
cui il saldo è 0 venga effettivamente 
scritto 0, premete, quando avete a vi¬ 
deo il formato pospetto Rimanenze, 
mela vuoaa P, per entrare nelle opzio¬ 
ni di stampa. Battete SL e return (figu¬ 
ra 15): serve a stampare un lineetta se 
un campo è vuoto e uno 0 se il campo è 
numerico con valore, appunto, zero. 

Se avete seguito con attenzione fin 
qui le operazioni descritte, sarete ora 
in grado di creare da voi i modelli che 
più corrispondono alle vostre esigen¬ 
ze. In ogni caso, nel prossimo numero 
di Applicando , costruiremo insieme 
un utile modello che servirà anche a 
scoprire ulteriori possibilità di questo 
programma. ■ 
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Per chi 
comincia 



N uovi lettori, siate i benvenuti. Queste 
pagine sono per voi, e le ripeteremo a 
ogni numero per facilitare il primo incontro 
con Applicando e con il mondo di Apple. 
Ovviamente queste righe non intendono 
sostituire i manuali, dei quali consigliamo 
caldamente la lettura, ma possono bastare 
per chi intende soltanto utilizzare i pro¬ 
grammi che pubblichiamo, copiarli, salvar¬ 
li su dischetto e farli partire. 

Cominciamo con qualche rapidissima 
premessa su Apple //. Quando accendete 
per la prima volta il vostro Apple con un 
dischetto già inserito nel drive e la tastiera 
posizionata sull'inglese (per chi possiede 
Apple //e e //c), dovreste veder comparire 
sullo schermo il segno "]", chiamato curso¬ 
re. o prompt. in inglese. Mentre se avete la 
tastiera posizionata su italiano, vedrete é. 
La sua presenza significa che potete fare 
una di queste tre cose: 

1) Fornire al computer comandi destinati 
al drive (per esempio CATALOG mostra il 
contenuto del dischetto, se si tratta di un 
dischetto in Basic). 

2) Fornire comandi nella versione per 
Apple del linguaggio Basic (e cioè l’Apple- 
soft Basic). 

3) Battere sulla tastiera righe di pro¬ 
grammi in Applesoft Basic. 

Per copiare un programma da Applican¬ 
do potrà essere necesario fare tutte e tre le 
cose. 

Per battere un programma 

di applicando 

Per prima cosa sarà opportuno leggere 
fino in fondo l’articolo che accompagna il 
programma. Può darsi che non capiate pro¬ 
prio tutto la prima volta: non preoccupate- 
vene, in seguito diventerà facilissimo. Cer¬ 
cate soprattutto le eventuali istruzioni che 
spiegano se occorre fare qualcosa di parti¬ 
colare per battere il programma. In ogni 
caso assicuratevi di aver pronto un dischet¬ 
to già inizializzato per poter salvare quel 
che avrete battuto. Per i dettagli su come 
inizializzare un dischetto vergine, guardate 
i manuali: chi proprio ai manuali fosse al¬ 
lergico, faccia così: a Apple spento inseri¬ 
sca il dischetto System Master nel drive 1, e 
accenda il computer: quando il drive avrà 
smesso di girare (lueina rossa di nuovo 
spenta), tolga il System Master dal drive e 
inserisca al suo posto un dischetto sicura¬ 
mente vergine e sicuramente mai usato (at¬ 
tenzione: si possono ri-inizializzare anche 
dischetti già usati, ma il loro contenuto va 
irrimediabilmente perso); ora basta battere 
NEW, Return, e poi INIT HELLO, sem¬ 
pre seguito da Return. 

Tutti i programmi in Basic consistono di 
una sequenza di righe di istruzioni. Tutte le 


righe sono numerate all'inizio, e possono 
contenere una o più istruzioni. Se le istru¬ 
zioni sono più d’una, esse saranno separate 
da segni di due punti (:). Per esempio: 


20 FOR J = 1 TO 5 : P R I N T 
CHR$(7):NEXT J 


Per copiare da Applicando un program¬ 
ma, inserendolo nel vostro Apple, occorre 
assicurarsi che la memoria operativa del 
computer sia vuota battendo NEW Return 
(questa istruzione non cancella nulla di ciò 
che è registrato sui vostri dischetti: libera 
soltanto la memoria del computer dall’ulti¬ 
mo programma usato), ed è necessario poi 
battere i listati così come sono stampati, 
riga per riga, compresi i numeri di riga, 
battendo Return solo quando si arriva al 
numero di riga successivo. Quando sarà 
stata copiata anche l’ultima riga e l'ultimo 
Return (a fine riga), si potrà salvare il pro¬ 
gramma su dischetto (il dischetto che avete 
inizializzato, o un altro già inizializzato in 
precedenza su cui ci sia spazio libero a suffi¬ 
cienza). Per salvarlo basterà battere il co¬ 
mando SA VE, seguito dal nome che inten¬ 
dete dare al programma che avete trascrit¬ 
to. Questo è tutto, ma vediamo passo per 
passo un esempio. 


10 REM CAMPANELLO 
20 FOR J = 1 TO 5 : P R I N T 
CHR$(7):NEXT J 
30 END 

Listato 1 


Per battere il semplice programma Cam¬ 
panello del listato 1 (produce solo un suono 
simile a quello di un campanello, null'al- 
tro), si seguirà questa sequenza: 

1) Battete NEW Return per cancellare 
dalla memoria qualsiasi programma prece¬ 
dentemente usato. (Se state lavorando su 
un Apple //e o un Ile assicuratevi che il tasto 
CAPS LOCK, il primo in basso a sinistra, 
quello che permette di ottenere tutte maiu¬ 
scole, sia schiacciato). 

2) Battete la linea 10 esattamente com’è 
stampata e premete il tasto Return solo alla 
fine dell'ultima parola (CAMPANELLO). 

3) Battete allo stesso modo anche le linee 
20 e 30. 

4) Con un dischetto già inizializzato nel 
drive (nel drive 1, se ne avete due), battete 
SAVE CAMPANELLO Return, per regi¬ 
strare il vostro programma su dischetto. 

5) Poiché il vostro programma è ancora 
nella memoria del computer, per farlo gira¬ 
re basterà battere RUN e premere il tasto 
Return. Se cancellate la memoria facendo 
girare un altro programma o spegnendo il 


computer, per usare nuovamente il pro¬ 
gramma occorrerà inserire il dischetto nel 
drive e battere RUN CAMPANELLO Re¬ 
turn. 

Alcuni suggerimenti 

I suggerimenti che seguono possono ren¬ 
dere il lavoro di trascrizione un po' più 
facile: 

1) Se commettete un errore di battitura 
in una riga e non avete ancora premuto il 
tasto Return, basterà tornare indietro con 
la freccetta sinistra, correggere l’errore, e 
tornare al punto in cui eravate con la frec¬ 
cetta destra, premendo Return come al so¬ 
lito solo a completamento dell’intera riga. 
Se invece vi accorgete dell’errore quando 
ormai avete premuto Return e siete passati 
a un’altra riga, completate tranquillamente 
la riga che state scrivendo, compreso il Re¬ 
turn finale; poi ribattete la riga in cui avete 
commesso l'errore: ribattetela per intero, 
con numero di riga e tutto il resto, e la 
nuova versione prenderà automaticamente 
il posto della vecchia. 

2) Siate particolarmente attenti a non 
commettere errori di trascrizione nelle ri¬ 
ghe in cui compare l’istruzione DATA. 
Nelle altre istruzioni un eventuale sbaglio è 
più facile da individuare, perché penserà 
eventualmente il computer a segnalarlo in 
seguito, nelle istruzioni DATA questo in¬ 
vece non avviene. 

3) Salvate periodicamente il programma 
mentre procedete, per minimizzare i guai 
di una eventuale interruzione di corrente. 
Se non avete tempo per trascrivere tutto il 
progamma, trascrivete fin dove potete o 
volete (ma comunque completando fino al 
Return la riga che state battendo), poi sal¬ 
vatelo su dischetto come se aveste finito. 
Per riprendere a trascrivere sarà sufficiente 
inserire il dischetto nel drive, accendere il 
computer, e battere LOAD seguito dal no¬ 
me che avete dato al programma, e da Re¬ 
turn (battete CATALOG se non ricordate 
più con che nome avete salvato il program¬ 
ma). La luce rossa sul drive si accenderà, e 
il vostro programma verrà caricato nella 
memoria operativa del computer. A questo 
punto battete LIST, e vedrete scorrere sul¬ 
lo schermo tutta la parte del programma 
che avevate già battuto. Continuate adesso 
tranquillamente dal punto in cui avevate 
interrotto. 

4) Prima di effettuare modifiche o ag¬ 
giunte, trascrivete l’intero programma e fa¬ 
telo girare per prova. Questo renderà più 
facile la ricerca di eventuali errori, isolando 
quelli commessi durante la battitura e la 
trascrizione. Non preoccupatevi per il nu¬ 
mero di errori di trascrizione che farete: è 
normale. II computer vi segnalerà, riga per 
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riga, dove avete sbagliato. Basterà a questo 
punto controllare la riga, individuare l’er¬ 
rore commesso e ribattere correttamente 
l'intera riga. A questo punto occorre salva¬ 
re di nuovo il programma su dischetto. 

5) Le lettere minuscole possono essere 
usate solo all’interno di comandi che inclu¬ 
dono REM o tra virgolette. 

Programmi in 
linguaggio macchina 

Il Basic e il Dos sono ottimi linguaggi, 
ideati apposta per rendere più facile la pro¬ 
grammazione, ma l’Apple è in grado di 
ricevere comandi anche in un codice molto 
più vicino alla sua logica, chiamato linguag¬ 
gio macchina. Il linguaggio macchina è un 
po’ la lingua madre dell'Apple, un pro¬ 
gramma così composto sarà quindi compre¬ 
so dal computer molto più velocemente di 
un programma scritto in Basic. Per creare 
programmi in questa lingua si usa spesso un 
programma chiamato Assembler. L’As¬ 
sembler permette al programmatore di 
scrivere in un codice più facile del linguag¬ 
gio macchina: l’assembly. In un secondo 
momento il programma stesso si tradurrà in 
linguaggio macchina. L’Apple infatti non 
conosce l’assembly. 

Molti dei programmi che troverete su 
APPLICANDO saranno scritti in ambe¬ 
due le versioni: assembly e linguaggio mac¬ 
china; in questo modo potrete inserire le 
istruzioni direttamente in linguaggio mac¬ 
china, senza dovervi procurare il program¬ 
ma Assembler. In questo caso le istruzioni 
dovranno essere inserite direttamente nel 
System Monitor (da non confondere col 
monitor video): per raggiungere il System 
Monitor è sufficiente battere CALL-151 e 
schiacciare il tasto Return. A questo punto 
sullo schermo comparirà un asterisco (*) 
che indica che è stato raggiunto il contatto 
con il System Monitor. Per inserire i listati 
scritti in linguaggio macchina occorrerà al¬ 
lora battere, per esempio, i seguenti co¬ 
mandi: 


300:A2 05 20 DD FB CA F0 03 4C 02 03 60 
Return 


In questa serie di istruzioni il ’300’ indica 
una locazione di memoria e i due punti 
dicono all’Apple di inserire i seguenti nu¬ 
meri (A2 e gli altri numeri in base 16) in 
quella locazione. I numeri sono in base 16 
(esadecimale); non è necessario saper cal¬ 
colare con questa base per trascrivere i pro¬ 
grammi in linguaggio macchina, ma è im¬ 
portante sapere che in questo tipo di lin¬ 
guaggio i numeri sono dati sempre in esade¬ 
cimale. 

Facciamo un breve esempio di program¬ 
ma scritto in linguaggio macchina. Il se¬ 
guente listato serve a indirizzare alcuni dati 
in una particolare locazione di memoria: 


300.30B 

0300-A2 05 20 DD FB CA F0 03 
0308 -4C 02 03 60 

Listato 2 


I numeri a sinistra delle lineette (atten¬ 
zione: le lineette non vanno digitate, al loro 
posto occorre battere un "due punti") sono 
le locazioni di memoria, vale a dire gli indi¬ 
rizzi dello spazio di memoria in cui il dato 
dovrà essere conservato, e i numeri seguen¬ 
ti sono il contenuto, i dati da memorizzare 
nelle sette locazioni di memoria indicate. I 
due numeri separati da un punto presenti 
nella prima riga indicano gli indirizzi inizia¬ 
li e finali della parte di memoria considera¬ 
ta. Questo programma è la traduzione del 
listato numero tre, scritto in assembly. Co¬ 
me si noterà le colonne a sinistra sono mol¬ 
to simili al listato numero due, contengono 
infatti le locazioni di memoria, mentre la 
parte a destra contiene istruzioni in assem¬ 
bly. Esistono diversi programmi assembler 
e diverse disposizioni dei listati, ma in tutti 
sono presenti queste due diverse colonne. 


1 *RINGER PROGRAM 



2 

ORG 

$300 


3 

BELL EQU 

$FBDD 

0300: A2 05 

4 

LDX 

#$5 

0302: 20 DD FB 5 

LOOP JSR 

BELL 

0305: CA 

6 

DEX 


0306: F0 03 

7 

BEQ 

END 

0308: 4C 02 03 

8 

JMP 

LOOP 

030B: 60 

9 

END RTS 



Listato 3 


Per inserire i listati nella macchina è suf¬ 
ficiente eseguire le seguenti operazioni: 

1) Digitare CALL—151 Return per en¬ 
trare in contatto con il System Monitor, poi 
inserire la locazione di memoria, i due pun¬ 
ti e il contenuto della memoria; nel caso del 
listato numero due ad esempio si digiterà: 


300:A2 05 20 DD FB CA F0 03 Return 
308:4C 02 03 60 Return 


Un programma in Assembler sarà invece 
così inserito: 


300:A2 05 Return 
302:20 DD FB Return 
305:CA Return 
306:F0 03 Return 
308:4C 02 03 Return 
30B:60 Return 


State attenti a non inserire lo spazio tra i 
due punti e il primo numero seguente, 
mentre invece bisogna mettere lo spazio fra 
le coppie di numeri. 

2) Una volta inserito l’intero listato, 
schiacciate CTRL-C Return per tornare al 
livello BASIC indicato dal segno ’]'. 

3) Al contrario dei programmi in BASIC 
che iniziano nella stessa locazione di me¬ 
moria, e che possono essere salvati con un 
semplice SAVE, i programmi scritti in lin¬ 
guaggio macchina possono iniziare in di¬ 



versi punti della memoria. Per salvare lista¬ 
ti o dati in linguaggio macchina si dovrà 
indicare quindi la locazione alla quale ha 
inizio il programma da salvare e la lunghez¬ 
za dello stesso (in decimale o in esadecima¬ 
le). Per il programma usato prima come 
esempio, il comando sarà: 


BSAVE RINGER, A$300, L$C 


dove AS300 è la locazione di memoria di 
inizio programma e L$C è la lunghezza del 
programma (la lettera C corrisponde al nu¬ 
mero decimale 12). All'inizio dei listati in 
linguaggio macchina pubblicati su Appli¬ 
cando troverete sempre l'indicazione della 
locazione di memoria di inizio e fine pro¬ 
gramma; esempio: 300.3EA mentre nel 
corso dell’articolo troverete i parametri per 
salvare il programma, esempio: BSAVE 
RINGER, A$300,L$C. 

4) Per rivedere il listato che avete tra¬ 
scritto basterà battere 300.30B, e sullo 
schermo si riprodurrà tutto ciò che avete 
battuto. Per ottenere una copia sulla stam¬ 
pante, basterà battere PR # (£ se siete in 
tastiera italiana) seguito dal numero dello 
slot al quale avete collegato la stampante 
(normalmente il n. 1) Return e poi ancora 
300.30B Return. Le correzioni si fanno ri¬ 
battendo solo la riga contenente eventuali 
errori. 

5) Per far girare il programma basterà 
allora digitare BRUN RINGER, senza 
l’indirizzo. 

Quanto esposto sopra è valido sia per il 
DOS 3.3 (sistema operativo per la gestione 
del drive che veniva fornito prima dell'usci¬ 
ta del //c) sia per il ProDOS (sistema opera¬ 
tivo fornito con il //c). Usando il ProDOS 
occorre però fare alcune precisazioni. 

I comandi del tipo SAVE, LOAD. 
RUN, CATALOG, ecc. vengono accettati 
anche in forma minuscola. 

Per formattare un disco non si potrà più 
usare il comando INIT HELLO, ma sarà 
necessario usare il disco UTILITIES di Si¬ 
stema fornito con il computer. Durante 
questa operazione vi verrà chiesto se il no¬ 
me del disco, assegnato automaticamente 
dal computer, va bene oppure se volete 
cambiarlo. Infatti tutti i dischi formattati in 
ProDOS (indicati come Volume) hanno un 
nome e vengono riconosciuti indicando 
questo nome dopo un comando diretto al 
drive. Per esempio se volete vedere il cata- 
log di un disco chiamato BLANK, dovete 
battere CAT/BLANK. 

Per non ripetere continuamente il nome 
del disco potete battere. prima dei comandi 
diretti al drive, PREFIX/nome disco segui¬ 
to da RETURN. Da questo momento tutti 
i comandi al drive saranno diretti automati¬ 
camente al disco scelto. 

Per vedere il catalog è sufficiente battere 
CAT. 

Durante l'uso di alcuni programi scritti in 
ProDOS potreste trovarvi una richiesta del 
tipo "PATHNAME?"; non spaventatevi, il 
pathname è il nome del disco al quale vo¬ 
gliamo fare riferimento, scritto entro due 
barrette (/) e seguito dal nome del file che 
vogliamo salvare o caricare in memoria op¬ 
pure trasferire da un disco a un altro. 
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• Habadex 


Consente di gestire agenda e rubrica telefonica. L’agen¬ 
da è impostata come una normale agenda da tavolo, ma 
con tutte le possibilità che può offrire il fatto di essere 
inserita in un computer: viene visualizzata data, ora e 
relativo impegno giorno per giorno, oppure una veduta 
generale mese per mese. Gli elenchi della rubrica sono 
costruibili, record per record, con la massima facilità, in 
quanto una apposita maschera fa da guida. Sono inoltre 
ordinabili secondo il criterio che desidera l’utilizzatore e 
stampabili secondo una maschera definita in precedenza. 
E’ inoltre disponibile una funzione di mail merge per circo¬ 
lari personalizzate. Il programma è disponibile in italiano e 
costa 298.000 lire, iva compresa. J. Soft, Via Restelli 5, 
Milano, telefono 02/6888228. 



é Rrthiuio Composizione Ordinamento Stampa Modifiche 


Puoi sempre visualizzare data 
ora e le altre informazioni piu' 
importanti della tua agenda 


2 . 21.30 Teatro 


Nuovo 

Record 


Speciale reti locali per Inf Og 


: réf i_ : /il 


Ricor¬ 

renze 


Agenda HabadeR 


• Microsoft Word 

Uno dei migliori strumenti di elaborazione testi per uso 
professionale. Ogni documento può essere lungo quanto si 
vuole, purché si abbia spazio sufficiente su disco. Dotato di 
mail merge per personalizzare la corrispondenza, è predi¬ 
sposto per stampare su diverse stampanti letter—quality. 



Offre la possibilità di spostare interi paragrafi da un do- 
cumnto all’altro e di aprire finestre per consultare altri 
documenti. E’ possibile creare un glossario delle parole 
che si adoperano di più, mentre le note al testo vengono 
numerate automaticamente e stampate nella pagina di 
pertinenza. Utilizzabile con gli altri programmi della fami¬ 
glia Microsoft: per esempio, è possibile inserire in un 
documento un grafico ottenuto con Microsoft Chart. Co¬ 
sta 621.300 lire ed è importato da Southern European 
Computer, Via Molino 2, Montorfano (Co), telefono 
031/200621. 


• Switcher 

E’ ancora in fase sperimentale, ma non appena messo in 
commercio andrà sicuramente a ruba. Si tratta di un soft¬ 
ware che gestisce quattro programmi insieme. In pratica, 
suddivide la memoria di un Macintosh 512K in quattro 
parti da 128K ciascuna. In questo modo, con un semplice 
clic del mouse in una doppia freccia che compare in alto a 
destra del menù, è possibile passare instantaneamente, per 
esempio, da MacWrite a MacPaint. Instantaneamente nel 
senso che sul video si vede scorrere l’immagine di MacWri¬ 
te che nel contempo viene sostituita da quella di MacPaint. 
E così via. Il prezzo, naturalmente, non è ancora stato 
comunicato né la data di commercializzazione, anche se è 
presumibile pensare a giugno o settembre di quest’anno. 



• Helix 

Rivolto al mercato dei manager un altro programma 
integrato studiato per una gestione relazionale dei dati. 
Completamente controllato da icone e finestre, mette a 
disposizione funzioni particolari come la creazione da par¬ 
te dell’utente di determinati criteri di lavoro e di manipola¬ 
zione dati che restano sotto forma di icone. Interessante 
l’opzione di help che incorpora sia quella propria del pro¬ 
gramma sia una gestibile dall’utente che può immagazzina¬ 
re una serie di istruzioni che potrà richiamare appunto in 
caso d’aiuto. Gira su Macintosh 512K con un drive aggiun- 
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tivo o un hard disk, o su Lisa con MacWorks. Particolar¬ 
mente curato nella parte grafica, il programma Helix è un 
prodotto della Odesta Corporation. In Italia è possibile 
trovarlo presso Tutto Personal, Via Vittorio Emanuele 39, 
Ciriè, Torino. Costa 1.080.000 lire iva inclusa. 


• Ensemble 

Software integrato che riunisce in un unico programma 
la gestione dei dati, la funzione di foglio elettronico, il 
trattamento dei testi e la creazione di grafici per analizzare 
i dati inseriti. Le diverse funzioni vengono integrate insie¬ 
me per soddisfare le proprie esigenze e possono essere 
interfacciate sia tra di loro sia con MacWrite e MacPaint. 
Prodotto francese della Controle X (il titolo originale è 
CX-MacBase) è stato importato e tradotto dalla Italware 


che lo distribuisce in Italia, in italiano, a 590.000 lire. 
Necessita di un Macintosh 128k, con o senza drive aggiun¬ 
tivo. Si può richiedere alla Italware, Palazzo Borromini, 
Milano 2, Segrate. 


• OverVUE 


Una rubrica telefonica che è anche un utile strumento 
per calcolare i costi delle telefonate. Come tutti i program¬ 
mi "specializzati", naturalmente serve solo a uno scopo 
preciso, ma lo raggiunge in pieno. Il sort è velocissimo ed è 
disponibile anche la stampa secondo maschere definite in 
precedenza. Il suo utilizzo è talmente semplice da farne 
uno strumento ideale per la segreteria. Disponibile in ita¬ 
liano, costa 698.000 lire, iva compresa. J. Soft, Via Restelli 
5, Milano, telefono 02/6888228. 





























































scuola 


a cura del professor Enzo Tonti 


Un diagramma cartesiano per rendere intuitivamente evidente il 
classico algoritmo euclideo per il calcolo del massimo comun divisore. 


Algoritmo di Euclide 


E uclide di Alessandria, circa 23 se¬ 
coli fa, nelle Proposizioni 1 e 2 del 
Libro VII degli Elementi, ci ha indica¬ 
to la procedura più rapida per il calco¬ 
lo del massimo comun divisore 
(MCD) tra due numeri naturali: si 
tratta di quello che, per antonomasia, 
è l’algoritmo euclideo per il calcolo del 
MCD. La procedura è notissima, e ri¬ 
portata anche in molti testi per le scuo¬ 
le secondarie. Lo scopo dei due pro¬ 
grammi che presentiamo, il primo dei 
quali serve semplicemente come intro¬ 
duzione al secondo, è quello di dare 
uno strumento agevole all’allievo per 
sperimentare l’algoritmo euclideo su 
coppie di numeri di sua scelta, fornen¬ 
do al tempo stesso un'interpretazione 
geometrica del procedimento. 

Esponiamo rapidamente il ragiona¬ 
mento che soggiace al procedimento 
euclideo. Se n ed m sono numeri interi 
positivi, possiamo eseguire la divisio¬ 
ne con resto di n per m, cioè determi¬ 
nare i due numeri q ed r (quest’ultimo 
maggiore o uguale a 0 e minore di m) 
tali che n = q m + r. L’uguaglianza 
ottenuta si scrive anche n — q m = r; 
ne deduciamo che se un intero d divide 
la coppia (n,m) esso divide anche la 
coppia (m,r) e viceversa. Se ne deduce 
che i divisori comuni alla coppia (n, m) 
sono tutti e soli quelli comuni alla cop¬ 
pia (m,r) , quindi 


MCD (n, m) = MCD (m, r); 


se indichiamo il resto della divisione di 
n per m con il simbolo n mod m (preso 
il prestito dal linguaggio di program¬ 
mazione Pascal ), abbiamo 


MDC (n, iti) = MCD (m, n mod m) 


L’ultima uguaglianza scritta cade in 
difetto se r = n mod m = 0, nel senso 
che non è stato definito il MCD per 
una coppia di interi avente il secondo 
elemento nullo; d’altra parte, se r = 0, 
ciò significa che n è multiplo di m, e 
dunque 


MCD (n, m) = m 


Siamo dunque indotti a porre la se¬ 
guente definizione "ricorsiva": MCD 
(n, m) è uguale a MCD (m , n mod m), 
se m è diverso da 0, altrimenti è uguale 
ad n. 

La definizione posta sembra elude¬ 
re il problema del calcolo del MCD dei 
due numeri assegnati, in quanto lo ri¬ 
conduce al calcolo del MCD di altri 
due numeri: l’apparente contraddizio¬ 
ne si elimina osservando che nella se¬ 
conda coppia, diciamo (m, r), il secon¬ 
do elemento, r, è minore del primo 
elemento, in quanto è il resto di una 
divisione in cui m funge da divisore. Se 
si ripete un numero sufficiente di volte 
il procedimento di sostituzione della 
coppia (dividendo, divisore) con la 
coppia (divisore, resto), si perviene, 
dopo un numero finito di iterazioni, ad 

Listato 1 


una coppia in cui il secondo elemento 
è nullo, e quindi il primo elemento 
fornisce il MCD. Il MCD è invariante 
nel passaggio da ciascuna coppia alla 
coppia successiva: quando si perviene 
alla coppia con secondo elemento nul¬ 
lo, il primo elemento è il MCD comu¬ 
ne a tutte le coppie cercate, quindi 
anche il MCD della coppia iniziale. 

L'algoritmo euclideo può essere in¬ 
terpretato come il calcolo della funzio¬ 
ne che associa ad ogni coppia (n, m) di 
numeri naturali il loro MCD, median¬ 
te utilizzazione ripetuta della defini¬ 
zione ricorsiva posta. 

I programmi 

Il programma CALCOLO DEL 
MCD realizza il calcolo del massimo 


100 REM &&&&&^&&&&&&&&&&&&&&& 

102 REM 

103 REM CALCOLO DEL MCD 

104 REM 

los rem 

106 REM 

110 REM PROF. 6. C. BAR0ZZI 

120 HOME 

125 MAX = 999999999 
130 PR1NT ‘INTRODURRE I DUE NUMERI 1 : PRINT 
140 INPUT "N = 1 ;N: IF N < = 0 OR N ) MAX THEN 140 
150 INPUT "M = ';M: IF M < = 0 OR M > MAX THEN 150 
160 PRINT 

170 PRINT "DIVIDENDO DIVISORE QUOZIENTE RESTO 1 

180 PRINT 1 - 1 

190 IF M = 0 THEN 290 
200 GET A* 

210 0 = INI (N / M):R = N - Q * M 

220 N4 = STR4 (N):M$ = STR4 <M):Q4 = STR4 (Q):R4 = STR$ 

(R) 

230 HTAB 10 - LEN <N4>: PRINT N4; 

240 HTAB 20 - LEN <M4): PRINT M4; 

250 HTAB 30 - LEN (04): PRINT 04: 

260 HTAB 40 - LEN (R4): PRINT R$ 

270 N = M:M = R 
280 GOTO 190 

290 PRINT : REM — FINE CICLO — 

300 PRINT 1 - 1 

310 PRINT "MCD = ":N 

320 PRINT : PRINT J UN ALTRO CALCOLO? (S/N ) 1 ; 

330 GET A4: IF A4 = "S 1 THEN 120 
340 END 


DOS 3.3 

ProDOS ‘♦■IH 
APPLE //e -*HII 
APPLE //c -tllll 
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comun divisore tra due interi positivi, 
visualizzando, ad ogni passaggio, il 
quoziente ed il resto della divisione 
effettuata; la pressione di un tasto 
(istruzione 200) provoca l’avanzamen- 
to del programma da una coppia alla 
successiva, fino alla determinazione 
del MCD. I dati in ingresso non devo¬ 
no superare il numero 999999999, 
massimo intero rappresentabile sullo 
schermo senza passare alla "notazione 
scientifica”. 

Nel programma VISUALIZZA¬ 
ZIONE DELL'ALGORITMO EU¬ 
CLIDEO, scritto come il precedente 
in BASIC Applesoft, il procedimento 
descritto viene visualizzato rappresen¬ 
tando ogni coppia, a partire dalla cop¬ 
pia iniziale (n, m), mediante un punto 
del piano, riferito ad una coppia di assi 
cartesiani ortogonali. Otteniamo una 
sequenza finita di punti, dotata delle 
seguenti proprietà: 

1) a partire dal secondo punto, l'a¬ 
scissa di ogni punto è l’ordinata del 
punto precedente; 

2) eccettuato al più il punto iniziale, 
ogni punto è al disotto della diagonale 


del primo quadrante; 

3) eccettuato al più il punto iniziale, 
le ascisse dei punti in questione costi¬ 
tuiscono una sequenza strettamente 
decrescente. 

Per evidenziare la proprietà (vedi 
figura 1), nelle figure che ilustrano i 
programmi ogni punto generato dal 
programma è congiunto al punto suc¬ 
cessivo mediante due lati di una spez¬ 
zata a lati paralleli agli assi: i vertici di 


tale spezzata che non appartengono 
alla diagonale del primo quadrante so¬ 
no i punti rappresentativi delle coppie 
che ci interessano. 

Sullo schermo dell’elaboratore si 
generano figure simili a quelle che illu¬ 
strano l’articolo, con la differenza che 
il campo di variabilità dei numeri n ed 
m, che costituiscono la coppia iniziale, 
va da 1 a 150. Come nel programma 
precedente, la pressione di un tasto 


Listato 2 


ioo rem 

no REM 

120 REM VISUALIZZAZIONE 

130 REM DELL'ALGORITMO EUCLIDEO 
HO REM PER IL CALCOLO DEL MCD 
150 REM 

160 rem 

170 REM 

180 REM PROF. G.C.BAR0ZZI 

190 REM 

200 TEXT : HOME 

210 REM - 

220 REM INGRESSO DATI 

230 REM - 

240 F = 0:F1 = 0 

250 PRINT 'INTRODURRE I DUE NUMERI ( < 150 ) ' 

260 PRINT : INPUT 'N = ’;N 

270 IF N < = 0 OR N > 150 THEN GOTO 260 

280 PRINT : INPUT 'M = ':M 

290 IF M < 0 OR M > 150 THEN GOTO 280 

300 REM - 

310 HGR : HC0L0R= 3 

320 IF N ) 9 OR M ) 9 THEN 360 

330 GOSUB 990: REM QUADRO SINISTRO 

340 HPLOT 10 * N,151 - 10 * M:F = 1 

350 GOTO 370 

360 GOSUB 780: REM QUADRO DESTRO 
370 VTAB 21: PRINT '( *;N;" , ';M:' ) ' 

380 REM.----- 

390 REM CICLO 

400 REM.. 

410 IF M = 0 THEN GOTO 580 
420 GET A* 

430 Q = JNT (N / M):R = N - Q * M 
440 IF FI = 0 THEN GOTO 480 
450 HPLOT 120 + N,151 - M 


460 

470 

480 

490 

500 

510 

520 

530 


HPLOT TO 120 + M, 151 - M 
HPLOT TO 120 ♦ M,151 - R 
IF M > =10 THEN GOTO 540 
IF F = 1 THEN GOTO 530 
GOSUB 990: REM QUADRO SINISTRO 

PRIMO TRACCIAMENTO 


GOSUB 650: REM 
GOTO 540 
GOSUB 720: REM 
540 N = M:M = R 
550 
560 
570 
580 
590 
600 
610 
620 
630 
640 
650 
660 
670 
680 
690 


SECONDO TRACCIAMENTO 

i i 11 ) > 


PRINT '( “jN;' 

GOTO 410 

REM . 

GET A* 

PRINT : PRINT 'MCD = ’:N: PRINT 

PRINT 'UN ALTRO CALCOLO? (S/N) 

IF A* = 'S' THEN 200 

END 

REM 

REM - 

REM PRIMO TRACCIAMENTO 

REM - 

HPLOT 100,151 - M * 10 
HPLOT TO 10 * M,151 - 10 * M 
HPLOT T0 10 * M,151 - 10 * R 


GET A$ 


700 F = 1 : RETURN 

710 REM . 

720 REM TRACCIAMENTO SUCCESSIVO 

730 REM.-. 

740 HPLOT 10 * N,151 - 10 * M 
750 HPLOT TO 10 * M,151 - 10 * M 
760 HPLOT TO 10 * M,151 - 10 * R 
770 RETURN 

780 REM - 

790 REM QUADRO DESTRO 

800 REM - 

810 FI = 1 

820 HPLOT 120,1 TO 120,151 TO 270,151 TO 270,1 T0 120,1 
830 REM-SCALE GRADUATE 
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determina l'avanzamento del pro¬ 
gramma da una coppia alla coppia suc¬ 
cessiva. È interessante osservare cosa 
accade se si parte da una coppia (n, m) 
con n < m (vedi figura 2): alla prima 
iterazione si trova il quoziente 0 ed il 
resto n, quindi la seconda coppia de¬ 
terminata dairalgoritmo è (m, n). In 
altri termini: i due numeri inizialmen- Figura 2 
te dati vengono scambiati tra loro, e si 
riparte con una coppia in cui il primo 
elemento è maggiore del secondo. 

Poiché i grafici generati sullo scher¬ 
mo dell’elaboratore sono di difficile 
lettura quando le coordinate dei punti 
determinati dall’algoritmo sono trop¬ 
po piccole, si è provveduto ad accen¬ 
dere un secondo quadro, a sinistra del 
primo quadro tracciato, (devi figura 
3); quando le coordinate in questione 
scendono al disotto del valore 10 
(istruzione 490), tale quadro (istruzio¬ 
ne 990—1200) realizza un ingrandi¬ 
mento del quadrato 10 per 10 del pri¬ 
mo quadro, le cui dimensioni sono 150 
per 150. Il tracciamento dei due quadri Figura 3 
sullo schermo è governato da due indi¬ 
catori, F ed FI, inizialmente posti 


uguali a 0 (istruzione 240); la loro "ac¬ 
censione", corrispondente al valore 1, 
determina il tracciamento o meno di 
ciascuno dei due quadri. Se si parte da 
due numeri entrambi inferiori a 10, 
viene tracciato soltanto il quadro "pic¬ 


colo", sulla sinistra dello schermo. 

È interessante osservare sperimen¬ 
talmente la diversa lunghezza dell’al¬ 
goritmo euclideo (cioè il diverso nu¬ 
mero di iterazioni necessarie per por¬ 
tarlo a compimento) a seconda dei dati 



MCD(6,8) = 2 


massimo 
CoTiRin Divi sor¬ 
ci i 139 e 27 


840 POR K = 1 TO 14 
850 Y = 1 + K * 10 
860 HPLOT 121,Y TO 122,Y 
870 NEXT K 
880 FOR H = 1 TO 14 
890 X = 120 + H * 10 
900 HPLOT X,150 T0 X,149 
910 NEXT H 

920 REM-DIAGONALE 

930 FOR K = 122 T0 268 STEP 2 
940 HPLOT K,271 - K 
950 NEXT K 

960 HPLOT 120 ♦ N,151 - N 0 10 

970 RETURN 

980 REM - 

990 REM QUADRO SINISTRO 

1000 REM .-. 

1010 IF FI = 0 THEN 1080 

1020 HPLOT 118,141 T0 118,153 T0 130,153 T0 130,141 T0 118, 

141 

1030 HPLOT 118,146 T0 108.146 T0 108,100 T0 102,100 

1040 REM .FRECCE 

1050 HPLOT 103,99 TO 103,101 

1060 HPLOT 104,98 T0 104.102 

1070 REM - QUADRO SINISTRO 

1080 HPLOT 0,51 T0 0.151 T0 100.151 T0 100,51 T0 0,51 

1090 REM. SCALE GRADUATE 

1100 FOR K = 1 T0 9:X = 10 * K 

1110 HPLOT X,150 T0 X,149 
1120 NEXT K 

1130 FOR K = 1 T0 9:Y = 51 ♦ 10 * K 
1140 HPLOT 1,Y T0 2,Y 
1150 NEXT K 

1160 REM-DIAGONALE 

1170 FOR K = 2 T0 98 STEP 2 

1180 HPLOT K,151 - K 
1190 NEXT K 
1200 RETURN 


MB 


<139,21 


150 

iniziali; un risultato che risale al mate¬ 
matico francese Gabriel Lamé 
(1795-1870), assicura che il "caso peg¬ 
giore", nel senso che l’algoritmo eucli¬ 
deo richiede il maggiore numero pos¬ 
sibile di passi, si ha quando i numeri n 
ed m inizialmente assegnati sono due 
numeri di Fibonacci consecutivi. Nella 
figura 1 è mostrato il caso dei numeri 
13 e 8. Lasciamo al lettore di scoprire 
quanti passi sono necessari per la cop¬ 
pia (144, 89): si tratta dei due numeri 
di Fibonacci più grandi, compatibili 
con il vincolo di non superare il nume¬ 
ro 150. 

Giulio Cesare Barozzi 


Questo programma è disponibile su 
dischetto. L’elenco, i prezzi e le 
modalità d’ordine di questo e degli altri 
dischetti disponibili sono riportati nella 
rubrica Disk Service. 
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presenta il suo nuovo catalogo software e hardware per Macintosh 

Tutti i prezzi del software sono comprensivi di iva. 


Software di sistema: 

• HIPPO C: (Hippopotamus Software). 
Editor e compilatore C Mac. Level 1 : Lit. 
472.200; Level 2: Lit. 1.302.700; Upgrade 
1-2: Lit. 817.500. 

• MAC MEMORY: (Assimilation Process). 
Accede più la memoria del 512K. Lit. 
111.200. 

• MAC TURBO TOUCH: (Assimilation 
Process). Turbo charged mouse. Lit. 
470.900. 

Gestione archivi: 

• DESK ORGANISER: (Warner). Databa¬ 
se dinamica. Lit. 444.700. 

• MACLION DATABASE: (Computer 
Software Design). Database relazionale 
con linguaggio speciale. Lit. 1.239.300. 

• OVERVIEW: (ProVue). Gestione infor¬ 
mazioni. Lit. 882.900. 

• FACTFINDER: (Forethought). Archivio 
freeform. Lit. 487.200. 

Gestione amministrativa 
e finanziaria: 

• MAC CASH: (Peachtree). Lit. 572.300. 

Ufficio moderno: 

• JAZZ FOR MAC: (Lotus). Software inte¬ 
grato con word processing; worksheet 
analisi, database, grafiche gestionali, co¬ 
municazioni. Lit. 1.780.700. 

• THINK THANK 512: (Living Videotext). 
Lit. 732.500. 

• MAC OFFICE: (Creighton Develop- 
ment). Lit. 117.700. 

• DESK TOPPERS: (Harvard Associa¬ 
tes). Accessorie per l’ufficio. Lit. 150.400. 

• MEGAFORM: (Megahaus). Per riempire 
i modelli. Lit. 964.700. 

Applicazioni professionali: 

• NEGOTIATION EDGE: (Human Edge). 
Per trattare meglio. Lit. 882.900. 

Calcolo tecnico e scientifico: 

• MICRO PLANNER: (Micro Planning). 
Analisi per esclusione. Lit. 1.226.300. 

Applicazioni grafiche 
e tecniche: 

• MAC THE KNIFE 2: (Miles). Piu immagi¬ 
ni per la libreria. Lit. 147.000. 

• MAC PUBLISHER: (Boston Telecompu¬ 
ter). Layout per i newsletter. Lit. 356.400. 

• ART DEPARTMENT: (Business Profes¬ 
sional Software). Grafiche per l’azienda. 
Lit. 637.700. 

• PROPRINT: (Creighton Development). 
Grafiche professionali per documenti. Lit. 
219.000. 


• MOUSE AROUND: (Frontrunner). Tool 
per disegni. Lit. 179.700. 

• MAC AUTHOR: (Icon). Programma di¬ 
namica di grafiche per documenti. Lit. 
552.600. 

• MAC ENHANCER: (Microsoft). Perfe¬ 
zionare le grafiche. Lit. 817.500. 

• ANIMATION TOOLKIT: (Ann Arbor). 
Tools per l'animazione. Lit. 147.200. 

• GRAPHICS MAGICIAN: (Penguin). 
Programma grafiche. Lit. 143.900. 

Comunicazioni: 

• MAC-EPSON CONNECTION: (Assimi¬ 
lation Process). Connettere il Mac all’Ep- 
son. Lit. 372.000. 

• MAC TO APPLE COMMS: (Southea- 
stern). Trasferimenti archivi Mac-Apple. 
Lit. 150.300. 

• MAC TO IBM COMMS: (Southeastern). 
Trasferimenti archivi Mac-lbm. Lit. 
196.000. 

• VISCOM: Prestel Comms Software. (AM 
Technology). Lit. 245.250. 


La S. E. C. presenta una grande 
novità: i suoi giochi per Mac! 


Giochi: 

• MACJACK BLACKJACK: (Datapak). 
Lit. 147.000. 

• SARGON III: (Hayden). Lit. 147.200. 

• ZORK III: (Infocom). Lit. 139.800. 

• PENSATE: (Penguin). Lit. 117.700. 

• FROGGER: (Sierra on Line). Lit. 
118.200. 

• BARON MAC: (B.C.). Lit. 176.600. 

• MILLIONAIRE MAC: (B.C.). Lit. 
176.600. 

• TYCOON MAC: (B.C.). Lit. 176.600. 

• SQUIRE: (B.C.). Lit. 209.300. 

• HOLY GRAIL: (Hayden). Lit. 238.700. 

• MIND PROBER: (Human Edge Softwa¬ 
re). Lit. 140.600. 

• WITNESS MAC: (Infocom). Lit. 117.700. 

• SEASTALKER MAC: (Infocom). Ut. 
117.700. 

• SUSPENDED MAC: (Infocom). Lit. 
176.600. 

• STARCROSS: (Infocom). Lit. 176.000. 

• ENCHANTER: (Infocom). Lit. 147.200. 

• DEADLINE: (Infocom). Lit. 176.600. 

• INFIDEL: (Infocom). Lit. 147.200. 

• PLANETFALL: (Infocom). Lit. 117.700. 


• MACATTACK: (Miles Computing). Lit. 
147.200. 

• XYPHUS MAC: (Miles Computing). Lit. 
117.700. 

• FUNPACK MAC: (Videx). Lit. 117.730. 

• MACCHECKERS -& REVERSAL: (Vi¬ 
dex). Lit. 147.200. 

• MACVEGAS: (Videx). Lit. 170.000. 

LaS.E. C. presenta una grande 
novità per Mac: 


HARDWARE: (prezzi iva esclusa). 


• DAVONG MAC DISKS: Espansione di 
memoria molto dinamica. 10MB Hard disk 
Lit. 5.850.000; 21MB hard disk Lit. 
8.385.000; 32Mb hard disk Lit. 10.185.000; 
40MB hard disk Lit. 11.985.000. 

• MOCKINGBOARD: (Sweet Micro Sy¬ 
stems). Sound board più avanzata. Lit. 
340.100. 

• IMAGEWRITER EMULATOR FX/RX: 

(Hanson). Scheda emulatore per stam¬ 
pante Epson per compatibilità con Ima- 
gewriter. Lit. 326.800. 

• IMAGEWRITER EMULATOR MX: 

(Hanson). Lit. 326.800. 

• UPGRADE 128K-256K MAC: Upgrade 
Kit. Lit. 1.631.700. 

• THUNDERSCAN: (Thunderware). Leg¬ 
ge disegni riportandoli sullo schermo. Lit. 
747.000. 

Accessori: 

• MACTILT: (Ergotron). Screen adjust- 
ment per Mac. Lit. 327.000. 

• PAINTMATE: (Hogland). Facilita il tra- 
cing sullo screen del Mac. Lit. 163.300. 

• MAC DUST COVER: Protezione dalla 
polvere per il tuo Mac. 

• MAC SWIVEL: (Kensigton). Swivel base 
per Mac. Lit. 690.000. 

• MOUSE CLEANING KIT: (Kirkstall). Pu¬ 
lizia per il mouse. Lit. 32.500. 

• MICRON EYE: (Micron Technology). 
Rende il Mac un apparecchio fotografico 
per fotograre i vostri documenti. Lit. 
1.389.800. 

DISPONIBILI PRESTO: 

non ancora quotati 

• QUARTET: (Haba Systems). 

• EXPERLOGO: (Expert Intelligence). 

• MAIL CENTRE FOR APPLETALK: (Vi¬ 
dex). 


Tutti i prezzi di questo catalogo si intendono al pubblico. 

Ai rivenditori Apple verranno praticati sconti, anche per quantità 
Telefonateci per maggiori informazioni. 



Software 


Con un modesto sovrapprezzo 
consegne a domicilio in 48 ore. 
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Nato per iniziativa delle università americane, 
giunto in Italia per iniziativa dell’università di 
Bologna, il software del Progetto Seraphim si pone 
come punto di riferimento pertutti gli insegnanti di 
materie chimiche che desiderano utilizzare 
microcalcolatori nella loro opera d’insegnamento. 


Progetto Seraphim 


I microcalcolatori si stanno diffon¬ 
dendo sempre di più nelle scuole; 
questo fatto determinerà, anche se in 
tempi certamente non brevissimi, un 
inevitabile profondo cambiamento nei 
metodi di insegnamento. Questo cam¬ 
biamento potrà portare a un migliora¬ 
mento delia didattica solo se si comin¬ 
cia subito a esplorare le potenzialità e i 
limiti dei nuovi ausili didattici la cui 
utilità è strettamente connessa al loro 
modo d'impiego. Attualmente il prin¬ 
cipale problema che si presenta agli 
insegnanti che vogliano utilizzare il 
calcolatore è il reperimento del soft¬ 
ware necessario. A tale proposito la 
Divisione di Didattica Chimica della 
Società Chimica Italiana si è inserita 
nel progetto SERAPHIM che è sorto 
negli Stati Uniti sotto gli auspici della 
NSF con lo scopo di diffondere e sti¬ 
molare l'impiego del microcalcolatore 
nell’insegnamento della chimica. 

Attualmente la Divisione ha a di¬ 
sposizione 44 programmi didattici e 10 
programmi di Utilities divisi in 11 di¬ 
schetti; tutto il software è scritto per 
calcolatori Apple e richiede un solo 
drive e 48 K di memoria (un solo pro¬ 
gramma richiede 64 K); qualche pro¬ 
gramma richiede l'uso delle paddles. 

I programmi didattici possono esse¬ 
re classificati in tre categorie: genera¬ 
tori di esercizi, simulazioni di esperi¬ 
menti di laboratorio, giochi a sfondo 
chimico; sono molto facili da usare e in 
genere sono adatti alle scuole secon¬ 
darie superiori o per un primo anno di 
Università. La distribuzione dei di¬ 
schetti alle scuole interessate è curata 
dalla Divisione Didattica Chimica 
che, non avendo scopi di lucro, vende i 
dischetti al prezzo di L. 7.000 + Iva 
18% cadauno; questo prezzo partico¬ 
larmente contenuto è reso possibile 
dal lavoro volontario di chi si occupa 


del progetto e dalla collaborazione 
della MicroSystem, rivenditore auto¬ 
rizzato Apple di Bologna, che fornisce 
i dischetti a prezzo di favore. 

In cambio di questo prezzo la Divi¬ 
sione richiede la collaborazione degli 
insegnanti che sono pregati di restitui¬ 
re compilata una scheda di valutazione 
dei programmi utilizzati; si spera così 
di poter avere, in tempi ragionevoli, i 
dati necessari per un giudizio sull’effi¬ 
cacia didattica dei singoli programmi. 

Quasi tutti i programmi sono scritti 
in BASIC e non hanno alcuna prote¬ 
zione; questo fatto, assieme al prezzo 
irrisorio, rappresenta il principale 
vantaggio dell'insieme dei program¬ 
mi. Infatti essi si presentano come un 
sussidio didattico abbastanza flessibi¬ 
le, modificabile, senza molte difficol¬ 
tà, secondo le esigenze di ogni inse¬ 
gnante. D'altra parte questi program¬ 
mi non costituiscono un insieme coor¬ 
dinato teso a coprire tutto un corso di 
chimica ma certamente fra i vari argo¬ 
menti trattati, che vanno dalla chimica 
generale e inorganica alla chimica or¬ 
ganica alla chimica analitica, ogni in¬ 
segnante potrà trovare materiale adat¬ 
to per il suo corso. I programmi sono 
stati raggruppati per argomenti in cia¬ 
scuno dei dischetti e il titolo dato ad 
ogni disco dà un’idea del contenuto: 

Disco STRUTTURA: contiene 
quattro programmi. 

Disco CINETICA ED EQUILI¬ 
BRIO: contiene quattro programmi. 


Per ogni ulteriore informazione 
sul progetto e sulle modalità di 
acquisto dei dischetti rivolgersi 
a: Prof. Giuseppe Innorta. Isti¬ 
tuto Chimico “Ciamician", Via 
Selmi 2, 40126 Bologna. 


Disco STECHIOMETRIA: contie¬ 
ne sette programmi. 

Disco MOLARITÀ: contiene sei 
programmi. 

Disco ANALITICA: contiene sette 
programmi. 

Disco ACIDI E BASI : contiene cin¬ 
que programmi. 

Disco ORGANICA: contiene quat¬ 
tro programmi. 

Disco LEGGI DEI GAS: contiene 
cinque programmi. 

Disco OTTANO: contiene due pro¬ 
grammi. 

Disco CHEMICAL DUNGEON: 
contiene un gioco di avventure a sfon¬ 
do chimico. 

Disco UTILITIES: contiene nove 
programmi. 

Non è stata fatta alcuna selezione 
fra i programmi, che sono quindi tutti 
quelli pervenuti dagli Stati Uniti anche 
se, a giudizio dei traduttori, alcuni di 
essi sembrano rivestire minore inte¬ 
resse; si è voluto lasciare agli inse¬ 
gnanti ogni giudizio di merito perché 
riteniamo che solo la verifica a scuola 
rappresenti un test significativo di 
qualsiasi ausilio didattico. 

E anche da tener presente che que¬ 
sti programmi rappresentano solo un 
punto di partenza e che suggerimenti 
su modifiche da effettuare o nuovi 
programmi da inserire nella rete di di¬ 
stribuzione sono fortemente caldeg¬ 
giati. 

Prima di chiudere devo un doveroso 
ringraziamento ai colleghi che hanno 
collaborato alla traduzione dall'ingle¬ 
se dei programmi: G. Avitabile. U. 
Lepore, C. Della Volpe dell’Universi¬ 
tà di Napoli. R. Ambrosetti del CNR 
di Pisa. L. Operti dell'Università di 
Torino, D. Perugini dell'Università di 
Bologna. 

Giuseppe innorta 


87 






scuola 


Applicando si fa partecipe dell’iniziativa che ha lo 
scopo di diffondere il Progetto Seraphim, 
pubblicando ogni mese un programma scelto tra il 
software che compone il progetto stesso. Il 
programma, com’è nello stile della nostra rivista, 
verrà illustrato nelle sue componenti essenziali e 
commentato nel suo listato. 

Isomeri 


I l programma "Isomeri" è compreso 
nel dischetto “Struttura” assieme a 
“VSEPR", “Stereochimica” e “Dise¬ 
gna le molecole”. 

VSEPR è un programma che mo¬ 
stra le geometrie prevedibili in base 


alla teoria della repulsione delle cop¬ 
pie di elettroni di valenza per alcune 
semplici molecole contenente anche 
coppie di elettroni di non legame; il 
programma offre la possibilità di fare 
ruotare le molecole attorno ai tre assi 


cartesiani. 

“Stereochimica” è un programma 
che mostra molecole organiche viste 
come proiezioni di Fisher e chiede di 
indicare se la molecola è chirale e se la 
sua configurazione è R o S. Si può 
scegliere tra molecole con uno o due 
centri chirali, con o senza legami mul¬ 
tipli. “Disegna le molecole” è un pro¬ 
gramma complesso che permette di 
rappresentare una molecola di cui sia¬ 
no conosciute le coordinate, di esegui¬ 
re calcoli di angoli e distanze di lega¬ 
me, cambi di coordinate, modifiche 
della struttura presentata mediante 
l’aggiunta o Peliminazione di atomi. 
Nel dischetto è già contenuto un file di 
dati relativo al benzene cromo tricar- 
bonile e c’è la possibilità di creare nuo¬ 
vi files di dati; per usare proficuamen¬ 
te questo programma occorre una di¬ 
screta conoscenza di strutturistica chi¬ 
mica. 


Listato 


100 REM HJ1S0MERS PROGRAM*** 

110 REM UPDATED 8/4/82 
120 REM URITIEN BY 
130 REM RICHARD C0RNELIUS 

140 REM CHEM1STRY DEPT. 

150 REM WICHITA STATE UNIV. 

140 REM WICHITA, KS 47208 

170 REM 

180 REM f'HONE (314) 489-3120 
190 REM ** PAGINA DI SALUTO ** 

200 DIM DE(64) 

210 F0KE - 14348,0: REM RIPRISTINA L'ATTIVAZIONE DELLA TASTI 
ERA 

220 HOME : VTAB 4: PR1NT SPC( 7):***************************** 
230 PRINT SPC.( 7):■* RELATI0NSHIP OF 1S0MERS * 

240 PRINT SPC( 7) 1 ***************************' 

250 VTAB 10: PRINT 'MRITTEN BY RICHARD C0RNEL1US" 

240 PRINT SPC< 11 ) j ” DEPARTMENT OF CHEMISTRY" 

270 PRINT SPC! 11>;'UICHITA STATE UNIVERSITY 1 
280 PRINT SPC( 11);“UICHITA, KS 47208’ 

290 REM PRONE (314) 489-3120 

295 PRINT : PRINT : PRINT -TRADUZIONE DI G.INNORTA E D.PERUGINI 

300 VTAB 20: PRINT ■BATTI UN TASTO QUALUNQUE PER COMINCIARE' 

310 IF PEEK ( - 14384) ( 128 THEN 310 

320 GET Gt 

330 REM ISTRUZIONI 

340 HOME : PRINT 'QUESTO PROGRAM INTENDE AIUTARVI A' 

350 PRINT "RICONOSCERE GLI ISOMERI DE! COMPLESSI' 

340 PRINT 'OTTAEDRI CI DEI METALLI DI TRANSIZIONE" 

370 VTAB (5): PRINT 'VI SARANNO MOSTRATE DUE STRUTTURE CHE' 

380 PRINT 'POSSONO ESSERE REALMENTE DIVERSE 0 CHE' 

390 PRINT 'DIFFERISCONO SOLO PER L'ORIENTAZIONE' 

400 PRINT 'VOI DOVETE STABILIRE SE LE STRUTTURE' 

410 PRINT 'SONO ENANTI0MERI.ISOMERI GEOMETRICI C 
414 PRINT 'SE SONO INVECE IDENTICHE' 

420 VTAB (12): PRINT 'LA STRUTTURA DI DESTRA PUÒ' VENIRE' 

430 PRINT 'RUOTATA ATTORNO AGLI ASSI X.Y E Z PER' 

440 PRINT 'VEDERLA NELL'ORIENTAZIONE DESIDERATA' 

450 PRINT 'LA POSIZIONE DEI TRE ASSI VI SARA" 

455 PRINT 'MOSTRATA SE CHIEDERETE DI RUOTARE LA' 

440 PRINT 'LA STRUTTURA' 

470 VTAB (20): PRINT 'BATTI UN TASTO QUALUNQUE PER CONTINUARE' 
480 REM ** VALORI INIZIALI DELLE VARIABILI 
490 TU) = 3:T(2) = 4:T(3> = 1:T(4) = 2:T<5) = 4:T(4) = 5: REM « 
EVIENE DEFINITA LA POSIZIONE TRANS** 

500 REM ** LE LINEE 510-550 DANNO IL SENSO DI ROTAZIONE USATO P 
ER DEFINIRE GLI ENANT1OMERI (VEDI SUB A 1770) 

510 DF(51) = 2:DF(43) = 2:DF(35) = 2:DF(14> = 2:DF<53) = 4:DF(41 
) = 4:DF(34) = 4:DF(15) = 4 

520 DF<54) = 1:DF(42) = 1:DF(44) = 1:DF<25) = 1:DF<52) = 3:DF(44 
) = 3 :DF(45) = 3:DF(24) = 3 

530 DF(41) = 5:DF(23) = 5:DF(34) = 5:DF(12) = 5:DF<43) = 4:DF(21 
) = 4 :DF< 32) = 4:DF(14) = 4 
540 BLt = ' 


550 14(0) = 'IDENTICHE. ':I$(D = 'ENAttTI OMERI. 

540 14(2) = ‘ISOMERI GEOMETRICI. 

570 Ad) = 1287:A<2) = 1299:A(3) = 1078:A(4) = 1044:A(5) = 1034: 
A(4i = 1330 

580 B(l) = 1305:6(2) = 1317:B(3) = 1094:B(4) = 1084:B(5) = 1052: 
B(4) = 1348 

590 064(0) = ' ! ! * 

400 DG4( 1 ) = ' ..'. ..!.' 

410 D64(2) = ' . ! . . 1 

420 DG4(3) = ' . 1 . ! 

430 DG4(4) = ' . M . M .' 

440 DG4(5) = ' 

450 0Gt(4) = ' . .' 

440 DGt(?> = DGt(0) 

470 DG4(8) = DGt(O) 

480 REM ** SCELTA DEI LEGANTI ** 

490 FOR V = 1 TO 4:AC(V) = INT ( RND (1) * 4 * 1):BC(V) = AC(V 
): NEXT 

700 R = INT ( RND (1) * 2 * 3) 

710 IF AC(l) = AC(R) THEN 490 
720 BC(1) = AC(R):BC!R) = AC(l) 

730 AXt = CHR4 ! RND (1) * 3 * 192) 

740 GOSUB 1710: REM CAMBIO DELL'ORIENTAZIONE 

750 FOR V = 1 TO 4:DC(V) = AC(V): NEXT 

740 GOSUB 1770:SA = SD:E1 = EN 

770 FOR V = 1 TO 4:DC(V) = BC(V): NEXT 

780 GOSUB 1770: IF SA < > SD THEN IS = 2: GOTO 850 

790 IF E1 ( > EN THEN IS = 1: GOTO 850 

300 IS = 0 

810 FOR V = 2 T0 4: IF AC(V) < > BC(V) THEN X = 1 
820 NEXT 

830 IF X = 0 THEN 490 
340 X = 0 

850 IF PEEK ( - 16384) < 128 THEN 850 
860 REM ** STAMPA DELLE STRUTTURE ** 

870 P0KE 34,0: HOME : VTAB 2: FOR V = 0 TO 8: PRINT DGt(V): NEXT 
880 POKE 34,12 

890 FOR V = 1 TO 6: POKE A(V),AC(V) * 192: NEXT 

900 FOR V = 1 T0 6: POKE BCVJ.BCfV) * 192: NEXT 

910 REM ** DOMANDE PER L'LIT1LÌ2ZAT0RE ** 

920 X = PEEK ( - 14384) 

930 VTAB 13: PRINT 'VUOI RUOTARE LA STRUTTURA DI DESTRA?' 

940 PRINT "(S=SI, N=N0) 

950 IF PEEK ( - 16384) < 128 THEN 950 
960 GET Gt 

970 IF Gt = THEN 1010 

980 IF Gt = 'N* THEN 1180 

990 GOTO 950 

1000 REM <* ROTAZIONE DELLA STRUTTURA DI DESTRA ** 

1010 HOME : PRINT 'PUOI RUOTARE ATTORNO AGLI ASSI X, Y E Z“ 

1020 PRINT 'PREMENDO LE LETTERE CORRISPONDENTI.' 

1030 PRINT 'PER OGNI BATTUTA SI AVRA' Ut) ROTAZIONE' 

1040 PRINT 'DI 90 GRADI IN SENSO ORARIO' 

1060 GOSUB 1910: REM AXIS DIAGRAM 

1070 VTAB (20): PRINT 'QUANDO VUOI SMETTERE DI' 

1080 PRINT 'RUOTARE LA STRUTTURA BATTI F* 

1100 IF PEEK ( - 14384) < 128 THEN 1100 


DOS 3.3 '♦■HI 
ProDOS ♦UH 
APPLE //e ♦llll 
APPLE //c *1111 
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Il programma 

Le strutture ottaedriche sono molto 
comuni nella chimica dei composti di 
coordinazione e se attorno al metallo 
centrale sono presenti leganti di natu¬ 
ra diversa sono possibile diverse strut¬ 
ture isomeriche. La normale rappre¬ 
sentazione bidimensionale sulla carta 
di questi complessi rende poco agevo¬ 
le il confronto fra due strutture, dato 
anche il fatto che gli studenti tendono 
a considerare non equivalenti le posi¬ 
zioni equatoriali e assiali, mentre in un 
ottaedro perfetto tutte le distanze di 
legame metallo-legante sono uguali. 
L'impiego di modelli molecolari tridi¬ 
mensionali chiarisce bene le orienta¬ 
zioni reciproche fra i leganti nello spa¬ 
zio ma non fornisce particolare aiuto 
quando si devono confrontare due 
strutture proiettate sul piano. Il pro¬ 
gramma “Isomeri” si pone come colle¬ 


gamento fra le rappresentazioni tridi¬ 
mensionali e quelle bidimensionali in 
modo da dare agli studenti una com¬ 
prensione migliore delle rappresenta¬ 
zioni bidimensionali che comunemen¬ 
te si trovano nei libri di testo e che ogni 
insegnante è costretto a impiegare nel¬ 
le sue lezioni. 

II programma è di impiego molto 
facile e le spiegazioni complete per il 
suo uso sono date dall’inizio (linee 
330-470). 

Due strutture ottaedriche che han¬ 
no la stessa serie di leganti sono mo¬ 
strate sullo schermo. I leganti sono 
scelti a caso e rappresentati dalle pri¬ 
me sei lettere dell'alfabeto (linee 690- 
730); il programma chiede quindi se le 
due strutture sono identiche, enantio- 
meri o isomeri geometrici. Prima di 
rispondere, l'utilizzatore può fare ruo¬ 
tare la struttura di destra attorno ai tre 
assi cartesiani (subroutine da 1390 a 


1700) tante volte quante ritiene neces¬ 
sarie. La rotazione avviene gradual¬ 
mente con pause intermedie ed è ac¬ 
compagnata da un segnale audio per 
attirare l’attenzione dello studente. 
Quando è stata raggiunta una conclu¬ 
sione, il calcolatore controlla la rispo¬ 
sta ricevuta, e in caso di errore invita 
lo studente a continuare le rotazioni 
fino a quando non viene data la rispo¬ 
sta esatta. L'algoritmo usato per de¬ 
terminare la relazione isomerica fra 
due strutture presentate (subroutine 
da 1770 a 1910) è basato sulla procedu¬ 
ra messa a punto e utilizzata corrente- 
mente dal Chemical Abstract (vedere 
M. F. Brown, R. R. Cook, T. E. 
Sloan, Inorg. Chem., voi. 14, pag. 
1273, (1975)). 

II modo di generare le strutture ot¬ 
taedriche visualizzate sullo schermo 
consente di continuare l’esercitazione 
quanto si vuole. Giuseppe Innorta 


1110 1F PEEK ( - 14384) < 128 THEN 1100 
1120 GET AXÌ; !F AXÌ = 'F* THEN Gì = ‘N": GOTO 1180 
1130 IF AXÌ < > "X" ANO AXÌ < > ‘V AND AXÌ < i "2’ THEN 111 
0 

1140 GOSUB 1390; REM 44 ALLA SUBR0UTINE 01 ROTAZIONE ** 

1150 FOR Y = 1 T0 4: POKE B(Y),BC(Y) * 192; NEXT 
1140 GOTO 1110 

1170 REM 44 RICHIESTA DI RISPOSTA «* 

1180 HOME ; PRINT 'QUESTE DUE STRUTTURE SONO ENANTIOMERI, " 

1190 PRINT ‘ISOMERI GEOMETRICI 0 SONO IDENTICHE?’ 

1200 PRINT "(RISPONDI E, G OPPURE 1)‘; 

1210 IF PEEK < - 14384) < 127 THEN 1210 
1220 GET GÌ 

1230 IF Gì ( ) 'E* AND Gì < > ‘G‘ AND Gì < > ‘P THEN 1210 
1240 PRINT ‘ ‘ :GÌ 
1250 PRINT CHRÌ (7) 

1240 IF Gì = ’]■ THEN GS = 0 

1270 IF Gì = ‘E 1 THEN GS = 1 

1280 IF Gì = "G” THEN GS = 2 

1290 IF IS = GS THEN PRINT CHRÌ (7);; GOTO 1340 

1300 PRINT ; PRINT 'NO, NON SONO ";IÌ(GS) 

1310 PRINT ; PRINT ‘BATTI IH TASTO QUALUNQUE PER RUOTARE' 

1320 PRINT ‘LA STRUTTURA DI DESTRA" 

1330 IF PEEK ( - 14384) < 127 THEN 1330 
1340 GET Gì 
1350 GOTO 1010 

1340 PRINT 'ESATTO '!! SONO PROPRIO ' :IÌ<6S) 

1370 PRINT ; PRINT 'BATTI UN TASTO QUALUNQUE PER CONTINUARE'; PRINT 
■PER FINIRE BATTI E'; GET Al; IF Al = "E* THEN PR£ 4 

1371 GOTO 490 
1380 END 

1390 REM 44 SUBR0UT1NE DI ROTAZIONE ** 

1400 IF AXt = "Y‘ THEN 1520 
1410 IF AX1 = '2' THEN 1420 

1420 B = BC(1);BC(1 ) = BC(4);BC(4) = BC(3):BC(3) = BC(5):BC<5) = 

B 

1430 P0KE Bri),140; POKE B<5),160: P0KE B(3),140; POKE B(4),140 
: PRINT CHR$ (?)■ 

1440 'POKE 1183,BC(3> 5 192; POKE 1223,80(4) 4 192; POKE 1090,BC 
ri) t 192: POKE 1178.BC<5> 4 1?2 
1450 FOR V = 1 T0 133; NÈXT 

1440 POKE 1183,140; POKE 1223,140; POKE 1090,140; POKE 1178,140 
; PRINT CHRÌ (7); 

1470 POKE 1549,80(3! 4 192; POKE 1349,BC(4) 4 192; POKE 1489,BC 
(1) 4 192: POKE 1051,BC(5) * 192 
1480 FOR y = 1 TO 133: NEXT 

1490 POKE 1549,140; POKE 1349,140: POKE 1489,140: POKE 1051,140 
: PRINT CHRÌ (7); 

1500 FOR V = 1 TO 50: NEXT 
1510 RETURN 

1520 B = BC(5):BC<5) = BC(4):BC(4) = BC<4):BC(4) = 8C(2):8C(2) = 

B 

1530 POKE 8(5).160; POKE 8(2),140: POKE B(4),140: POKE B(4),140 
: PRIMI CHRÌ (7): 

1540 POKE 1055,BC<2) * 192: POKE 1828,BC(4> 4 192: POKE 1345,BC 
(4) 4 192: POKE 1557,BC(5) 4 192 
1550 FOR V = 1 TO 133: NEXT 


1540 POKE 1055,140: POKE 1828,140: POKE 1345,140: POKE 1557,140 
: PRINT CHRÌ (7); 

1570 POKE 1187,80(2) 4 192: POKE 1225,BC<4> 4 192: POKE 1214,BC 
(4) 4 192: POKE 1176,80(5) 4 192 
1580 FOR. V = 1 T0 133: NEXT 

1590 POKE 1187,140: POKE 1225,140: POKE 1214,140: POKE 1174,140 
: PRINT CHRÌ (7); 

1400 FOR V = 1 T0 50: NEXT 
1410 RETURN 

1420 B = 6C(1):BC(1 ) = BC(4):BC(4) = BC(3):BC(3) = BC(2):BC!2) = 
B 

1430 POKE Bri), 140: POKE B(2),140: POKE B(3),140: POKE B(4),140 
: PRINT CHRÌ (7) ; 

1440 POKE 1181,BC(2) 4 192: POKE 1573,BC<3) 4 192: POKE 1221,BC 
(4) 4 192: POKE 1484.BC(1> 4 192 
1450 FOR Y = 1 T0 133: NEXT 

1440 POKE 1181,140: POKE 1573,140: POKE 1221,140: POKE 1484,140 
: PRINT CHRÌ (7): 

1470 POKE 1185,BC(2> 4 192: POKE 1955,8C(3) 4 192: POKE 1217,BC 
(4) 4 192: POKE 1430,80(1) 4 192 
1480 FOR V = 1 T0 133: NEXT 

1490 POKE 1185,140: POKE 1955,140: POKE 1217,140: POKE 1430,140 
: PRINT CHRÌ (7)1 
1700 RETURN 

1710 REM «4 INTERSCAMBIO DI LEGANTI 44 
1720 IF AXÌ = T THEN 1750 

1730 IF AXÌ = '2' THEN 1740 

1740 B = BC(1):BC(1) = BC(4):BC(4) = 8C(3):BC(3) = BC(5):BC(5) = 
B: RETURN 

1750 B = BC(5) :BC<5) = BC(4):BC(4) = BC(4):BC(4) = BC(2):BC(2) = 
B: RETURN 

1740 8 = BC!l):8C(i> = BC(4):BC(4) = BC(3):BC<3) = BC(2):BC(2) = 
B: RETURN 

1770 REM n SUBR0UT1NE PER LA DISTINZIONE DEGLI ISOMERI ** 

17B0 REM ** PR E' IL NUMERO DI PRIORITÀ' UTILIZZATO PER LA REG0 

LA DELLA MASSIMA DIFFERENZA TRANS 44 
1790 L = 44 

1800 FOR V = 1 T0 4:PR(V) = 10 4 DC(V) 4 4 - DC(T(Y)):P(V) = PR 

(V) 

1810 IF PR(V) < L THEN L = PR(Y):V1 = V 
1820 NEXT 

1830 P(Y1) = 44:P(T<VD) = 44:L = 44 
1840 FOR V = 1 TO 4 
1850 IF P(V) < L THEN L = P!V):Y2 = Y 
1840 NEXT :SD = 10 4 DC(T(VD) 4 DC(T(Y2)) 

1870 FOR Y = 1 TO 5: FOR U = Y 4 1 T0 4: IF PR(Y) = PR(U) THEN 
EN = 0 : RETURN 
1880 NEXT U: NEXT Y 
1890 YT = 10 4 vi 4 Y2 

1900 EN = DC(DF(VT)) - 0C(T(DF<VT>)>: RETURN 
1910 REM 44 PICCOLO DIAGRAMMA DEGLI ASSI 44 
1920 VTAB 18: HTAB 34: PRIMI ’2’ 

1930 HTAB 35: PRINT V..." 

1940 YTAB 20: HTAB 34: PRINT 1 . M 

1950 HTAB 33: PRINT ‘ . ‘ 

1940 HTAB 32: PRINT ‘X 1 Y‘ 

1970 RETURN 
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applicando 

si trova anche qui 

Ecco un elenco dei computer shop presso i quali è possibile abbonarsi ad Applicando , 
acquistare una copia, cercare un numero arretrato... 


LOMBARDIA 


Almé(BG) 

Elcod Viale Italia 45/A 

A ssago (MI) 

Basic Computers Centro 
Commerciale Milano Fiori 

Bergamo 

Studio 15 srl Via Quarenghi 60 
Il mondo dell’informatica 
Via Pitentino 8 

Brescia 

Alfa computerNia Bassi 26 
Brescia Computers srl 
Via Malta 12 

Il Computer srl Via B. Croce 23 
L 'Informatica srl 
Piazza Vescovado 1 
Personal Data di Tamiozzo D. 
ViaBrozzoni4 

Como 

D. S. I. srl Via Dottesio 8 

Como-Albate 

Accaesse Informatica srl 
Via Acquanera 46 

Lecco (CO) 

Computers Lecco snc 
Via Nino Bixio 18/B 
Datamation Via Turati 10 

Lissone (MI) 
Computerlandia-Polli 
Via Martiri Libertà 103 

Milano 

A. G. Informatica srl 
Via G.Silva 49 

Communications Engineering 

Piazza Firenze 4 

Deltron srl Viale Gran Sasso 50 


Edelektron srl 
Corso Sempione 39 
Esprit Via Bergamini 13 
H tppv System Pia/.'a Diazó 
Information Technologv 
Via dei Bossi 7 
All' Informatica Slutp 
Via I ,i//aretto2 
Macan sas Via Broletto 39 
Microtech Sistemi Via Piave 7 
SH Computers srl 
Viale Montenero 33 
Softec Computer 
Viale E. Jenner23 

Monza (MI) 

ESI srl Via Cavallotti 11 
Nikom Electronics Via Asiago 7 

Pavia 

M.A.S.H. Computer Systems 
Strada Nuova 86 
Senna Gianfranco snc 
Via Calchi 5 

Trezzano sul naviglio (MI) 

Personal computer shop 
Via L.da Vinci 36 

Segrate(MI) 

Compusoft di R. Massaroli 
Via Milano 2 - Resid. Lago 
Varese 

IRPE srl Via Morazzone 8 

LAZIO 


Roma 

Computer Center srl 

Via Nizza 48/52 

Computerart srl 

Via Michele di Landò 41 

Compatirne srl 

Via Cola di Rienzo 28 

Easy Byte Via Giov. Villani 24 


E.D.P. Market 
ViaE. Fermi 116/118 
E.M. EUR Micro Computer srl 
Viale C. Pavese 267 

5.1. G.E. E.I. srl 

Via Nomentana 265-273 

5.1. PR.EL.srl 

Via Pompeo Magno 94 

Roma EUR 

Bit Computers 
Via F. Domiziano 10 

Roma Mostacciano 

Bit Computers 

Via Giovanni Gastaldi 33 

Viterbo 

Alfa Computer 
Via Palmanova 12/C 


VENETO 


Bassotto del Grappa (VI) 

A Tre snc di Arcangeli & C. 

Via Buonarroti 23 

Conegliano (TV) 

Computing Program di Branca 
ViaG. Piovesana 32 

Mestre (VE) 

Pacinotlisas Via Torino 92 

Mirano (VE) 

Saving Elettronica di Miatto 
Via Gramsci 40 

Padova 

Capovilla & C. sas 
Galleria Scrovegni 5 
Computer Service srl 
Via Beethoven 3 
E. D. P. Sistemi srl 
Via Borromeo 16 


Treviso 

A5 Computers srl 
Borgo Cavour 37/A 

Venezia 

AZ Telemarket 
Cannaregio 5898 
Personal Computer di 
Mariconda Canareggio 

Verona 

ARMUsrl 

Via Teatro Filarmonico 3 
Esacomp srl Via Roveggia 43 
MOS 80sas Via Germania 21 

Vicenza 

Sevisas Via S. Agostino 87 

Villafranca (VR) 

Studio4 C.so V. Emanuele 70 


PIEMONTE 
VALLE D’AOSTA 

Aosta 

Informatìque sas di Eddy Ottoz 
Av. Conseil des Commis 14 

Alba(CN) 

Centro computer Via Paruzza2 

Biella (VC) 

Consul Computer srl 
Via delle Rose 2 
Informatica Biella sas 
Piazza S. Paolo 1/B 

Domodossola (NO) 

Nuova Elettronica 
Via Giovanni XXIII68 

Pinerolo (TO) 

Elaborazione Dati Pinerolo 
Corso Piave 42 
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Torino 

A.B. Computer sas 
Corso Grosseto 209 
Digitalsync sue 
Corso Moncalieri 303 
Dimensione Personal 
Via Bertela 22/e 
GE. NE. CA. srl Via Bertola 5 
Hobby Elettronica 
Via Saluzzo 11/F-G-H 
Omicron Computers sne 
C.so Duca degli Abruzzi 14 
Piato G.-Componenti elette. 
Corso Principe Eugenio 15 bis 
Tecnosystem Computer Shop 
Via Beaumont 10 
Tekno Computers srl 
Via Madama Cristina 31/c 

TOSCANA 


BorgoaBuggiano (PT) 

CO-DI sne di G. Gatti-Chiti 
Via 24 Maggio 117/119 

Grosseto 

Computers Shop (C.I.S.I.D.) 
Via Papa Giovanni XXIII47/49 

Firenze 

Anfrel Informatica sas di F. 
Giagnoni & C. Via Masaccio 50 
Elettronica Cento Stelle srl 
Via Cento Stelle 5/B 
Paoletti Ferrerò 
Via il Prato 40/42 R 
Pascal Tripodo Elettronica 
Via B. della Gatta 26/28 
Soluzioni EDPsrl 
Corso dei Tintori 39R 

Massa 

Euro Computer sas 
Piazza C. Bertagnini 4 

Piombino (LI) 

Centro Ufficio sdf 
Via F.Ferrer 37/39 

Pisa 

Società Elettronica Tirrena 
Via Fucini 20 

Pistoia 

Inter Systems 

Via Pietro Mascagni 14 

Pistoia Frazione Margine 

CO-DI sne Via I Maggio 20/22 

Pontedera (PI) 

Data Portsrl 

Via Brigate Partigiane 27 

Terranuova B.ni (AR) 

ICS srl Via Roma 10 

EMILIA ROMAGNA 

Bologna 

CEDA Minicomp srl 
Piazza Aldrovandi 2/2 
Computer Systems 
Via Ercolani 10/D 
EDP Sistemi BOsrl 
Viale Pietramelara 61/F 
SERCOM Via B. da Carpi 9/B 


Cesena (FO) 

SHCsnc Corso Cavour 157 

Ferrara 

Soc. Termomeccanica 
Via Garibaldi 195 
Mazzacurati Claudio 
Viale Cavour 186/188 
Tecnomeccanica 
Via Garibaldi 195 

Fidenza (PR) 

EMA-Elettronica Industriale 
Via Bereninió 

Fiorenzuola d’Arda (PC) 

Centro Computer di Sacconi 
Corso Garibaldi 125/A 

Forfì 

A -Z Computer srl Via Cignani 7 
Kronos Via Oreste Regnoli 30 

Modena 

Masetti Elettronica srl 
Via Emilia Centro 211 

Reggio Emilia 

Computer Center srl 
Via D. Alighieri 4 
Esaprogetti Via F.Filzi 2 

Rimini 

Computer Line Via Coletti 61 

Scandiano (RE) 

Informatica System di Cheli 
Via Diaz 11/D 

Viserba di Rimini (FO) 

Computer Center 
ViaPallotta 25/A 

FRIULI VENEZIA 
GIULIA 


Pordenone 

Electronic Center sne 
Viale Libertà 79 

Turriaco (GO) 

Tecno Power Elettronica 
Via Marconi 19 

Udine 

BIT Computers 
Via Pozzuolo 107 
PS Elettronica sas Via 
Tavagnacco 89/91 C.C. 

LIGURIA 


Genova 

Computer Center 
Via San Vincenzo 129 r 
SA LS Informatica srl 
Via D'Annunzio 2/35 

Lavagna (GE) 

CR2 Informatica sne 
Corso Genova 100 

La Spezia 

Softline ir/Via Piave 19 

Sanremo (IM) 

A.E.S. Assemb. Elettr. S.Remo 
Via Volta 24 


Savona 

Briano sne 

Corso Tardy e Benech 20 r 

Seslri Ponente - Genova 

All Computer sas 
ViaC. Menotti 136r 

TRENTINO 


Trento 

SI. GE. sne di Casagrande 
Via Cesare Abba 2 

SICILIA 


Catania 

Centro Informatica sdf 
Via Firenze 211 
Computer Shop 
Via E. Orlando 164 
SI. EL Informatica sne 
Via Etnea 289 

Messina 

Cubeta srl Via Cardines 12/14 

Milazzo (ME) 

Tectron Tecnologie Elet. srl 
Via dei Mille 

Palermo 

Informatica Commerciale spa 
Via Notarbartolo 26 

Ragusa 

Sosyco Corso V. Veneto 597 

Trapani 

Guatano Eugenio 
Via Virgilio 11 

MARCHE 


Jesi(AN) 

E.M.J.sasViaT. Conti4 
New Computer srl 
Via N.Sauro 17/A 

Torrette di Ancona (AN) 

Sisteda srl Via Velino 5 

CAMPANIA 


Barano d’Ischia (NA ) 

Matterà Antonio Via Roma 61 

Benevento 

Masone Informatica 
Viale dei Rettori 57 

Napoli 

Computer Systems srl 
Via G. Santacroce 40 
Golden Computer srl 
Via Michelangelo 7 
I. C. International Computer 
Viale A. Gramsci, 176 
La Barbera Carlo sas 
Via Toledo 320 

Salerno 

Computer System 
Via E. Bottiglieri 19 
SEDA srl 

Via Parmenide c/o Iannone 


CALABRIA 


Catanzaro 

Visicom srl 

Via Minniti Ippolito 10 

Cosenza 

Micro Systems sdf 
Via Pane Bianco 26 

Gioia Tauro (RC) 

Tecnocomp sne di Cutellé F.e R. 
Via Nazionale SS 111/117 

Spezzano Albanese (CS) 
lannibelli Via Stragolia 48 

PUGLIA 


Bari 

L. & L. Computers srl 

Largo 2 Giugno 4 

desse spa Via Re David 176/D 

Brindisi 

SICsrl 

Viale S.Giovanni Bosco 109 

Foggia 

GE.CO. srl 

Via Valentini V. Franco 1 

Leverano (LE) 

Liberano Elettronica 
ViaC.Salentina 19A/21 

Manduria(TA) 

De Pasquale Ottavio 
Via per Oria 80 

Nardo (LE) 

SalcosrlV ia XX Settembre 122 

BASILICATA 


Matera 

Lucana Sistemi srl 
Via Don Minzoni4 

ABRUZZO 


Avezzano(AQ) 

Aspron Via America 10/12 

Chieti 

Computer Point sas 
Viale Unità d’Italia 5 

L’Aquila 

S.E.A.D. srl 
ViaG. di Vincenzo 

Lanciano (CH) 

Electronic Microsystems 
Via della Pace 3 

MOLISE 


Campobasso 

Informatica Molisana 
Via 24 Maggio 185/189 

UMBRIA 


Cerbara di città (PG) 

Computer Post 

Via Madonna del Vento 
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help 


Numeri in decimale 
ed esadecimale 

Il SUPPLEMEMTO AL MANUALE DELL'AC¬ 
QUIRENTE a pag. 32 riporta i numeri in decimale e in 
esadecimale corrispondenti alle lettere (maiuscole e 
minuscole) e ai numeri riportati sui tasti del computer. 
Conoscere questi numeri è utile quando si vuol far 
eseguire qualcosa a un programma legata alla pressione 
di un determinato tasto. In questo caso serve l'istruzio¬ 
ne seguente IF ASC("X") = N THEN.( dove X è 

la lettere corrispondente al tasto interessato e N il 
numero in decimale corrispondente al tasto stesso). Per 
trovare il numero corrispondente a una lettera, numero 
o simbolo di un tasto occorre battere PRINT ASCC'I- 
ettera, numero, o simbolo"). L'istruzione seguente 
PRINT CHR$(N) stampa su video lettera, numero o 
simbolo corrisondente al numero N (numero da 0 a 
255). Per coloro che non siano in possesso del manuale 
specificato riportiamo un breve programma che vi per¬ 
metterà di avere sul video i numeri corrispondenti ai 
tasti battuti senza dover ribattere ogni volta l'istruzione. 

Battuto il listato e dato il RUN, schiacciate un tasto, 
dopo alcuni secondi sentirete un suono nell'altoparlan¬ 
te e vedrete stampata sul video la lettere relativa al 
tasto schiacciato e il corrispondente numero; schiaccia¬ 
te un altro tasto e aspettate alcuni secondi, avrete un 
altro numero. Se schiacciate le frecce, lo spazio o il 
tasto return, avrete su video solo il numero corrispon¬ 
dete. Ricordate che dopo 44 tasti battuti il video si 
ripulisce per scrivere altri numeri. 


5 

CALL - 

934 


ì A 

= 1:B = 

8:P = 1 


10 

1F P > 

2 THEN 5 


12 

1F A = 

23 THEN A = 1:1 

= 8 4 15:P = P 4 l 

15 

F0R 1 = 

1 T0 255 


20 

GET A4 



30 

1F I = 

ASC (A*) THEN 

VTAB A: KTAB B: PRINT A4: VTAB A: 


HTAB 

B 4 5: PRINT 1: 

CALL - 1052:A = A 4 1: GOTO 10 

50 

NEXT 1 



40 

GOTO 10 



Due cali interessanti 

Con il comando CALL si richiama una subroutine in 
linguaggio macchina che risiede all'indirizzo che segue 
il comando stesso. 

CALL 62450 pulisce la pagina grafica in alta risolu¬ 
zione che stiamo usando. Se invece vogliamo pulirla 
prima di richiamarla e quindi non vedere la cancellazio¬ 
ne automatica che avviene con il comando HGR, dob¬ 
biamo prima puntare alla pagina in alta risoluzione che 
vogliamo usare con la locazione di memoria 230 e quin¬ 
di introdurre il CALL di pulizia: POKE230,32(per la 
prima pagina o 64 per la seconda pagina):CALL 62450. 

CALL 62454 invece cambia automaticamente il co¬ 
lore di fondo del disegno che si ha attualmente sulla 
pagina grafica con l'ultimo colore che è stato usato. 

Polaroid -Palette 

Se desiderate stampare su stampante o fotografare 
con Polaroid-Palette un disegno fatto in grafica ad alta 
risoluzione, è necessario che prima salviate su disco 
l’intera pagina grafica con l’istruzione BSAVE nome 
disegno,A$2000,L$2000 se siete in HGR. BSAVE no¬ 
me disegno,A$4000.L$200U se siete in HGR2. Per far 
questo occorre bloccare con CTRL-RESET il pro¬ 


gramma che ha generato il disegno, quindi battere 
l'istruzione sopra indicata. Non preoccupatevi se dopo 
il CTRL-RESET lo schermo ritorna in modo testo, la 
pagina grafica non è stata cancellata. Se volete riveder¬ 
la battete POKE - 16304,0:POKE- 16300,0:PO- 
KE—16302,0:POKE—16297,0 per HGR, mentre se 
avete disegnato in HGR2 dovete sostituire PO¬ 
KE-16300 con POKE-16299. Se state usando un pro¬ 
gramma protetto o in Pascal, battendo CTRL—R- 
ESET il driver contenente il programma ripartirà e non 
riuscendo ad uscire dal sistema non potrete salvare il 
disegno. Esiste un semplice sistema anche in questo 
caso. Visualizzato il disegno sul video, togliete il disco 
contenente il programma e sostituitelo con un disco 
inizializzato con il D.O.S. 3.3 (questo sistema non fun¬ 
ziona con il ProDos) e batete CTRL-RESET. Il siste¬ 
ma operativo si caricherà in memoria senza distruggere 
le due pagine grafiche e quindi il vostro disegno. A 
questo punto non vi resta che dare le istruzioni sopra 
elencate, e il gioco è fatto. 

Questo sistema è molto utile per recuperare grafici e 
disegni costruiti con il PFS—GRAPH e altri program¬ 
ma specifici per grafica e quindi effettuare delle magni¬ 
fiche diapositive con il Polaroid — Palette. 

Spia che il carattere non ci sia 

Spesso battendo i listati è facile che un dito scivoli 
sulla tastiera e si batta involontariamente il tasto CTRL 
contemporaneamente al tasto che dovevamo schiaccia¬ 
re in quel momento. Quasi sicuramente il programma 
non girerà e rischieremo di diventare matti per trovare 
l'errore perché il comando LIST non li visualizza. Se il 
computer segnalerà un SYNTAX ERROR a una linea 
del programma e a un attento esame la linea risulta 
scritta in modo corretto, probabilmente è stato intro¬ 
dotto un carattere di controllo. A questo punto non 
resta che ribattere con più attenzione la linea, e il 
programma dovrebbe girare. 

Per evitare inutili perdite di tempo, terminata la 
trascrizione del programma sul computer e salvato su 
disco il programma stesso è sufficiente far girare il 
breve programma pubblicato a pag. 155 del MANUA¬ 
LE DEL SISTEMA OPERATIVO D.O.S. 3.3, che 
riportiamo qui sotto per coloro che ne sono sprovvisti, 
quindi caricare in memoria il programma appena salva¬ 
to e fare LIST. Tutti i caratteri di controllo verranno 
evidenziati e sarà così facilitata la loro cancellazione. 
L'unico carattere di controllo di uso comune è 
CTRL-G, che va introdotto tra deve essere prece¬ 
duto dal comando PRINT e serve per far emettere un 
breve suono all'altoparlante del computer. Purtroppo 
questo programma non evidenzierà il CTRL—M, 
CTRL-H, CTRL-U ed ESC. Serve’ anche per evi¬ 
denziare eventuali caratteri di controllo inseriti nei file 
elencati dal CATALOG. In questo caso invece di bat¬ 
tere LIST bisogna battere CATALOG. Quando si usa 
questo programma viene disattivato l'altoparlante del 
computer. Per tornare al funzionamento normale, oc¬ 
corre battere PR#6 e riinizializzare il sistema. Funzio¬ 
na anche su APPLE Ile. 


IO DATA 201,141.240.21,201,13<S 
20 DATA 240,17.201,128,14413 
30 DATA 201,140,174,9,72,132 
40 DATA 53,54,233,44,74,249 
50 DATA 253,74,240,253 


40 F0R 1 = 748 T0 748 4 27 
70 READ 17: POKE 1,0: NEXT 1 
80 POKE 54,0: POKE 55,3 
90 CALL 1002 












x >: 

V.X 

.xxxxx 



per i tuoi problemi di scrittura... 


UTIL WRITER //e (...//c) 

Compilazione guidata lettera - Circolari personalizzate - Collegamento al Personal Data 
Base - 22 modi di scrittura - Creazione testata lettera - Utilizzazione set stampanti - 
Caricamento di un set alternativo per le stampanti Apple - Stampa su carta bollata - 
Schermate d’aiuto in italiano - Vari programmi d'utilità. J 3 Q qqq + IVA 


PRO WRITER //e (...//c) 

Stampa proporzionale a IO passi diversi con stampanti ad aghi Apple - Sillabica- 
zione italiana a line riga (tutte le stampanti) - Caricamento in memoria e uso di 
IO set alternativi per le stampanti ad aghi Apple - Comandi di controllo per le 
stampanti Apple ed Epson. j ()()() + | 



BASIC WRITER // 

Collegamento di Apple Writer // all’ambiente Basic per program¬ 
mi di utilità e calcolazioni nel testo - Super-calcolatrice in Apple 
Writer // - Programma Graphic Writer // per stampare disegni o 
grafici integrabili al testo (stampanti ad aghi Apple ed Epson) - 
Funzione di compattamento video, di sovrapposizione continua e di 
scelta del profilo di tabulazione - Perfetto adattamento di Apple 
Writer // all’Apple //c - Estensione al programma PRO WRITER //e 
(per chi già lo possiede). L. 00.000 + IVA 

BASIC WRITER + PRO WRITER L. 195.000 + IVA 


trasformano Apple Writer // nel più potente sistema di Word Processor 

1 tre programmi sono compatibili tra loro e richiedono la seguente configurazione: 

Apple //e (o //c) - Scheda 80 cl. + 64K - 1 Drive (2 Drive con Util Writer //e) - Programma Apple Writer // (Dos 3.3) 


...e per la sicurezza 

CATENACCIO 2.1 (Dos 3.3) 

Il nuovo e rivoluzionario sistema di protezione software, basato sui più recenti studi del 
settore, che rende inabile qualsiasi programma di copia fino ad ora mai realizzato. 

L. 170.000 + IVA 

Software italiano dello STUDIO PEDRAZZINI 

In vendita presso i rivenditori Apple o direttamente da: 


POLISISTEMI s.r.i. 



malfa® 

—I rivendite 



rivenditore autorizzato APPLE COMPUTER 


Via Derna, 19 - 20132 MILANO 
Tel. (02) 2842890 - 2829917 - 2843158 
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emettere 


Compatibilità 

Vorrei manifestare le mie 
congratulazioni per la bella 
rivista, che ho trovato piace¬ 
vole di lettura anche per un 
neofita, e interessante per 
programmi e applicazioni, 
per suggerimenti e trucchi, 
notando altresì l'importanza 
di programmi notevoli quali 
il DISK MAP e il DISK 
ZAP, la cui presenza mi ha 
veramente sorpreso e dato 
un grande piacere, anche se 
non posso ancora metterli 
all’opera, visto che ancora 
aspetto l’arrivo del mio Ap¬ 
ple Ile. 

A tal proposito, vorrei sa¬ 
pere se questi e altri pro¬ 
grammi per il //e sono da 
considerare totalmente 
compatibili con il nuovo Ile, 
ove non sia indicata alcuna 
variazione (come è stato fat¬ 
to in occasione del listato del 
tastierino numerico NEM¬ 
BO KEYD, che a una atten¬ 
ta lettura presenta un’apo- 
ria: nella riga 76 c’è un $AB 
al posto del citato $BD). 

Umberto Migliore 
Modica 

Non tutti i programmi 
pubblicati sulla nostra rivista 
girano, purtroppo, su Apple 
Ile; soprattutto quelli con 
parti di programma in lin¬ 
guaggio macchina o scritti 
interamente in linguaggio 
macchina. Per questi occor¬ 
re apportare alcune modifi¬ 
che. Occorre precisare che 
tutti i programi scritti in Ap¬ 
plesoft Basic girano tran¬ 
quillamente su Ile se scritti in 
D.O.S. 3.3, mentre se ven¬ 
gono copiati in Pro Dos, pos¬ 
sono presentare dei problemi 
e quindi occorre apportare 
delle modifiche soprattutto 
nella gestione dei file di testo. 
Nel caso specifico i due pro¬ 
grammi da lei citati non gira¬ 
no su Ile senza sostanziali 
modifiche che ci proponia¬ 
mo di pubblicare abbastanza 
presto. Facciamo presente 
che dalli. 12—13 indichiamo 
all'inizio dei programmi con 
quale sistema operativo pos¬ 
sono funzionare e su quale 
tipo di APPLE. Per l'ultima 


osservazione la ringraziamo 
per averci fatto presente una 
incompatibilità tra il listato e 
una modifica da noi suggeri¬ 
ta per adattarlo al Ile. Di fat¬ 
to l’errore ne! listato non esi¬ 
ste. ma non si deve modifica¬ 
re la linea 76 perché con il 
numero esadecimale AB 
funziona sia su Apple // che 
su Ile. 


Messaggio 

Ho listato il programma 
pubblicato sul N. 11/1984 
"Messaggio" a pag.29, ma il 
programma non funziona 
perfettamente, in quanto 
creati i file con l’opzione N. 
3, quando si ritorna all’op¬ 
zione N. 1 DISPLAY FILE, 
viene visualizzato solo il 
messaggio con il N. 1 e la da¬ 
ta, mentre il messaggio non 
compare sul video. Ho cer¬ 
cato di apportare delle mo¬ 
difiche ma senza risultati. 
Ho telefonato alla redazio¬ 
ne di Applicando il giorno 
25/2/85, con appuntamento 
per le ore 16,30—17.00 del 
giorno 27/2. ma ho telefona¬ 
to e il tecnico era assente per 
motivi di salute (detto dalla 
centralinista). 

Ho controllato varie volte 
il listato sia sul video che la 
ristampa, ma è perfettamen¬ 
te uguale a quello pubblica¬ 
to dalla rivista. Pertanto le 
chiedo di voler ricontrollare 
il listato pubblicato e farmi 
conoscere gli eventuali erro¬ 
ri. 

Lettera firmata 

/ listati che pubblichiamo, 
come già specificato in rispo¬ 
ste ad altre lettere, non con¬ 
tengono errori perché sono 
la fotografia della stampa di¬ 
rettamente dal programma 
collaudato e registrato sul di¬ 
sco. 

Quando si è copiato un li¬ 
stato e il programma non 
funziona, la prima cosa che 
occorre fare è controllare at¬ 
tentamente il listato alla ri¬ 
cerca di qualche errore di 
battitura. Nel caso che il tutto 
sia la copia perfetta dell'ori¬ 
ginale, prima di fare modifi¬ 


che che molte volte possono 
peggiorare la situazione, o 
peggio incolpare la Redazio¬ 
ne della rivista di aver com¬ 
messo errori nel listato, è be¬ 
ne cercare di capire come 
funziona il programma pun¬ 
to per punto aiutandosi leg¬ 
gendo attentamente l'artico¬ 
lo, per trovare dove non fun¬ 
ziona. Comunque le confer¬ 
miamo che questo program¬ 
ma funziona benissimo e le 
consigliamo di ricontrollare 
il listato soprattutto alle linee 
dove vengono aperti, scritti, 
letti e chiusi ifile. A volte può 
capitare di schiacciare inav¬ 
vertitamente durante la batti¬ 
tura de! listato il tasto CTRL 
inserendo un carattere di 
controllo non visibile, che 
può non far funzionare a do¬ 
vere il programma. In questo 
caso occorre ribattere atten¬ 
tamente le linee sospette. 
Purtroppo a distanza non è 
molto facile fare la diagnosi 
della malattia, le consiglia¬ 
mo quindi di leggere a pag. 
44 del MANUALE DEL SI¬ 
STEMA OPERATIVO 
D.O.S. 3.3. E' spiegato un 
ottimo sistema molto utile 
per il controllo del funziona¬ 
mento dei programmi basati 
sulTutilizzo dei FILE DI 
TESTO come in questo ca¬ 
so. Da ultimo le confermo 
che alla data della sua telefo¬ 
nata il tecnico era veramente 
a casa per influenza e vi è 
rimasto per otto giorni. 


Apple edicola 

Ho ricopiato il listato di 
"Apple edicola" apparso sul 
N. il della vostra rivista. 
Quando l’ho fatto girare 
sembrava che funzionasse 


alla perfezione ma. quando 
ho voluto elencare i record 
di una rivista, si bloccava 
dando codice di errore N. 
254 alla line 6520. Ho pensa¬ 
to allora di trasformare la li¬ 
nea 3170 in questo modo: 
FOR 1= 1 TO NILPRINT 
DI$(I);CHR$(34):NEXT. 

Così ho fatto per le linee 
4320,, 5110 e poi ho fatto 
girare il programma, il quale 
ha dimostrato, dopo questa 
variazione, di funzionare 
perfettamente e senza più 
intoppi. Spero che la varia¬ 
zione apportata al listato sia 
corretta, poiché è solo da 
pochi mesi che mi interesso 
di programmazione. 

Piero Castelli 
Bologna 

L’errore N. 254 significa 
ERRATA RISPOSTA A 
UN INPUT (bad reponse to 
input statement), e avviene 
alla linea 6520 dove il pro¬ 
gramma chiede dei dati in in¬ 
put dal file precedente aperto 
mentre il CHR$(34) corri¬ 
sponde alle virgolette alte (") 
che vengono scritte come pri¬ 
mo dato nel file di questo 
programma. Invertendo 
CHR$(34) con Dl$(l) non 
ha fatto altro che riscrivere le 
righe da lei citate che corri¬ 
spondono all'inserimento 
dei dati nel file. A questo 
punto è lecito pensare che 
nella precedente battitura 
aveva inserito, involontaria¬ 
mente, qualche carattere di 
controllo battendo il tasto 
"CTRL" contemporanea¬ 
mente al tasto richiesto. Pur¬ 
troppo i caratteri di controllo 
non sono visibili nel listato, 
quindi l'unica soluzione, in 
questi casi, è ribattere le linee 
di programma dubbie o me- 


Errata corrige 

Il listato MICROCALC.il pubblicato a pag. 42 del 
n. 12-13 aveva la linea 1060 incompleta. La stessa 
termina così: GOTO 1000. Inoltre occorre apportare 
una modifica, per migliorare i calcoli, ad alcune linee 
del listato SCRATCH — PAD pubblicato a pag. 46 del¬ 
lo stesso numero: nelle linee 820, 1010 e 2250 occorre 
togliere la divisione per 100 (/100) e nelle linee 2180 e 
2250 occorre togliere il prodotto per 100 (*100). 
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Precisazione 

Preghiamo coloro 
che ci sottopongono 
quesiti o problemi rela¬ 
tivi a programmi di co¬ 
municare sempre il tipo 
di computer utilizzato e 
il sistema operativo 
usato. Il nostro lavoro 
sarà così più agevole. 


glio consultare il MANUA¬ 
LE DEL SISTEMA OPE¬ 
RA TIVO D. O.S. 3.3 a pag. 
155 dove è riportato un pro¬ 
gramma di poche righe (che 
pubblichiamo nella pagina 
dell'APPLIHELP di questo 
numero) con le relative istru¬ 
zioni per la visualizzazione 
dei caratteri di controllo. Un 
altro ottimo sistema di con¬ 
trollo dei programmi che la¬ 
vorano con ifile è spiegato a 
pag. 44 dello stesso manuale. 
Provi a ribattere, come indi¬ 
cato sul listato della rivista, le 
linee da lei modificate e ve¬ 
drà che il programma fun¬ 
zionerà a dovere. 


Per cominciare 

Ho accolto con soddisfa¬ 
zione la rubrica PER CHI 
COMINCIA apparsa su 
Applicando N. 12-13 e ne 
approfitto per presentarvi 
una mia difficoltà. Possiedo 
un Apple //e e mi piacerebbe 
copiare qualcuno dei pro¬ 
grammi di giochi pubblicati. 

Poiché non possiedo né 
paddle né joystick, deside¬ 
rerei sapere come posso fare 
per passare il controllo dei 
movimenti del gioco alla ta¬ 
stiera (freccia destra—frec¬ 
cia sinistra, freccia in al¬ 
to-freccia in basso, mela 
vuota-mela piena). Se non 
mi sbaglio dovrebbe essere 
possibile. 

Raffaele Rizzello 
Chieri (TO) 

In linea di massima è pos¬ 
sibile convertire i comandi 
delle Paddle in comandi da 
tastiera. Le difficoltà si in¬ 


contrano per i programmi 
scritti in linguaggio macchi¬ 
na e quando il gioco richiede 
posizioni intermedie perché 
con i comandi da tastiera sa¬ 
rebbe necessario usare un ta¬ 
sto per ogni posizione richie¬ 
sta e la cosa si complica non 
poco. 

Il valore delle Paddle vie¬ 
ne rilevato con l'istruzione 
PRINT PDL(O) e PRINT 
PDL(l) mentre la pressione 
dei pulsanti viene rilevata, ri¬ 
spettivamente, con/'istruzio¬ 
ne IFPEEK(-16287) > 127 

THEN . e 1F PEE- 

K( - 1 6 2 8 6 ) > 127 
THEN . MELA VUO¬ 

TA e MELA PIENA corri¬ 
spondono rispettivamente al 
pulsante delta Paddle 0 e del¬ 
le Paddle 1. 

Per effettuare la conver¬ 
sione bisogna introdurre, 
prima della gestione dei tasti, 
la seguente istruzione K = 
PEEK( — 16384) :K$ = 
CHR$(K$) per rilevare la 
pressione di un tasto e sosti¬ 
tuire le istruzioni per la lettu¬ 
re delle Paddle con la se¬ 
guente IF ASC(K$)=N (nu¬ 
mero decimale corrispon¬ 
dente al tasto premuto) 
THEN . (quello che fa¬ 

ceva con il comando della 
Paddle). 

I numeri decimali relativi 
ai tasti sono pubblicati a pag. 
32 del SUPPLEMENTO 
AL MANUALE DEL¬ 
L'ACQUIRENTE. Ripor¬ 
tiamo qui i numeri relativi al¬ 
le quattro frecce non essendo 
indicati i relativi simboli sul 
manuale: 8 (freccia sinistra). 
21 (freccia destra), 10 (frec¬ 
cia in giù), 11 (freccia in su). 
Per coloro che non fossero in 
possesso del manuale, pub¬ 
blichiamo nella pagina di 
APPLIHELP di questo nu¬ 
mero un programmino per 
rilevare i numeri decimali 
corrispondenti ai vari tasti. 
Le suggeriamo anche due 
programmi pubblicati su 
Applicando, che sono gesti¬ 
bili da tastiera: A COLPI DI 
LASER, n.2 pag. 46 con la 
modifica per tastiera pubbli¬ 
cata sul n. 3 nella pagina del¬ 
le lettere, e PUCMAN, pub¬ 
blicato sul n. 6 a pag.39. 



34170 GORIZIA CORSO ITALIA. 149- TEL. 0481/30909 


Accessori per 11 vostro App le 

Solo per Apple Ile - espansione 64K ♦ BO colonne al prezzo 
eccezionale di Lire 220.000 

novità': 

Tastiera professionale 90 tasti ♦ 50 comandi basic ♦ 12 

tasti f opzion e + 1 Q tas ti d efi ni b il i da vo] Lire 298 000 
Tavoletta grafica completa di software L. 235 000 
Tako - un click e potrete usare l'altra faccia del vostro dischetto 
Lire 25.000 

auresa pia sr Ama Ann 

Utilissimi per risparmiare tempo ed utilizzare al massimo il 
vostro computer Indispensabili per chi usa molto la 
stampante Vi permettono di usare il computer mentre il Buffer 
manda alla stampante i dati che ha immagazzinato 
nelle versioni: 

Alimentato dalla stampante - da Centronics a Centronics con 
capacita' di 8 K Lire 250 000 

Alimentato a 220 V - da Centronics a Centronics con capacita' 
di 16 K e comando di Reset Lire 315.000 
Come sopra ma con capacita' di 32 K Lire 370 000 
Come sopra ma con capacita' di 64 K Lire 470.000 

Buffer da 64 k espandibile sino a 256 K ingresso seriale uscita 
Centronics Lire 680 000 

Stessa ma ingresso Centronics ed uscita seriale L 680 000 
Stessa ma ingresso seriale uscita seriale L 730 000 

AOCSSSOai VASI 

Disk-Drive siim: L 450 000 

Do ppio controller L 100 000 

Language card 16 K L 110 000 

2-80 p er CP/fD: L 118 000 

80 colonne con soft switch: L 220 000 

Super Serial Card con cavo di collegamento L 170.000 

Interface i g Centronics per Epson - TQ lJy Star con grafica a 

sole Lire 118 000 

Scheda per far parlare la vostra mela con softw: L 90.000 
Programmatore di EPROfTl (2716-2732-2764) L 120 000 
Scheda Pai Color con suono 95 000 
! 28 K RAfTl L 380.000 

Wild Card per Apple li plus e compatibili (per copiare tutti i 
programmi): L 90.000 

Replay: l a piu’ potente scheda per copia per Apple II plus e 
compatibili L. 158.000 

Joystick autocentranti. L. 42.000 

FLOPPY DISI 

In scatole da 10 pezzi tutti con anello di rinforzo 

TIPO nASHUA mEmOREX 3m-SCOTCH 

SF-SD L. 40 000 L. 50.000 L 55.000 

DF-DD L. 58.000 L. 68.000 L 68.000 

Kit 3IT1 per la pulizia delle testine del vostro drive a L. 55.000 

SOFTWARE PER IXlAOmTOSH 

Chiedeteci la lista II 


Vendita per corrispondenza Tutti i prezzi indicati 
comprendono ri VA. nessuna spesa di spedizione per ordini 
superiori alle 50 000 Lire Prezzi soggetti a variazioni 


VISITATE IL nOSTRO COITIPUTER SHOP PER TROVARE LE 
ULTIIT1E IÌOVITA'APPLE - GORIZIA - CORSO ITALIA 149 
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applicando 


Disk Servici 


Listati senza fatica 


Tutti i programmi di Applicando possono essere trascritti e quindi salvati su 
dischetto. Ma la trascrizione è lenta e noiosa, e sbagliare fin troppo facile. 
Ecco perché Applicando offre, già pronti, i dischetti con i programmi 
sottoindicati: perottenerli, è sufficiente inviarci il tagliando debitamente 
compilato. 


Applicando 1 

•AP1/I02 

Profitti. In tempo reale l'analisi del break-even point, punto di pareg¬ 
gio, di una qualsiasi azienda. Calendario perpetuo. Dal 1582 in poi 
tutto quello che si può sapere sui giorni passati e futuri. I tronchi del 
tesoro. Una spericolata caccia al tesoro a nuoto, fra le insidie di 
tronchi galleggianti. Lire 30.000 (abbonati 25.000). 

*AP1/N03 

Eliminatoredi Dos. Uno strumento per aumentare del 10% la capaci¬ 
tà di un normale floppy disk. Orologio. Per trasformare l’Apple // in un 
orologio con rintocchi, allarme e lancetta dei secondi. Pronti puntare 
fuoco! Guardiano di un castello abbandonato, hai 25 colpi da sparare 
contro gli intrusi. Lire 30.000 (abbonati 25.000). 

Applicando 2 
•AP2/IN04 

Costi chilometrici auto. Un programma per calcolare e confrontare i 
costi di qualunque auto. Richiamafigure. Posizionare, ingrandire, 
ruotare, cambiar colore, aggiungere figure a quelle di una tavola. 
Laser nello spazio. Battaglia a colpi di laser contro asteroidi e alieni 
per difendere la torretta spaziale. Lire 30.000 (abbonati 25.000). 
Applicando 3 
'AP3/IN05 

Sistema base. Un data base modulare con tutte le caratteristiche 
essenziali per mettere ordine nei propri archivi. Etichette. Etichette 
spiritose e bizzarre, di lavoro o di ogni genere, stampate facilmente e 
nel numero desiderato. Contratti. Con il WPL, il linguaggio di pro¬ 
grammazione dell'Apple Writer, bastano cinque minuti per un docu¬ 
mento di più pagine personalizzato. Gran catalogo. Una routine per 
avere il catalogo del dischetto su due colonne, 42 file per volta, e 
richiamarli con un solo tasto. Lire 30.000 (abbonati 25.000). 
*AP3/A06 

Equo canone (occorre Visicalc). In Visicalc un modello che permette, 
a inquilini o proprietari, l'esatto calcolo dell’equo canone. Lire 25.000 
(abbonati 20.000). 


Sistema base - AP3/IN05 

Un data base modulare che ha 
il pregio di costare pochissimo 
e di offrire possibilità operative 
che nemmeno programmi 
di costo molto superiore hanno. 



Applicando 4 

‘AP4/N07 

Lettura sprint (versione italiana e versione con frasi in inglese). Un 
reading improver per leggere di più a parità di tempo. Rompiquindici. 
Il piccolo rompicapo delle quindici pedine da ordinare nei sedici spazi a 
disposizione. Tastierino fantasma, una routine per avere a disposi¬ 


zione un tastierino numerico anche sull'Apple //. Routine di input. 
Due subroutine, una peri dati numerici l'altra per gli alfanumerici, perii 
controllo dell'input. Lire 30.000 (abbonati 25.000). 

'AP4/A09 

Organo, violino, pianoforte (dischetto Pascal, occorre language 
card o Apple Ile o Ile). Ecco come si riesce a simulare i tre strumenti 
attivando l'altoparlante dell’Apple da programma. Lire 30.000 (abbo¬ 
nati 25.000). 

Applicando 5 

•AP5/N08 

Investor. In tempo reale il quadro di come vanno i propri investimenti 
in Borsa. Con 5 prospetti riepilogativi e 52 periodi di quotazione, 
Investor è uno dei programmi più completi in questo settore e in 
assoluto il più economico. Lire 70.000 (abbonati 60.000). 

"AP5/N09 

Agenda personale. Per ricordare ora per ora gli appuntamenti di un 
anno intero memorizzando fino a 15 appunti ogni giorno. Duello 
d’artiglieria. Vince chi sa calcolare meglio la velocità del vento, la 
gittata e l'elevazione della canna. Mele e freccette. Versione compu¬ 
terizzata del popolare gioco delle freccette che nulla toglie al gusto del 
far centro. Lire 30.000 (abbonati 25.000). 

Investor - ÀP5/N08 j 

Per seguire le azioni in Borsa, con 
grafici, media mobile a 15 e 52 
settimane, medie volume e prezzo. 


Applicando 6 

•AP6/N10 

Obbligazioni/Bond Manager. Per avere un quadro completo e con¬ 
creto dei rendimenti dei titoli a reddito fisso. PucMan/Nibbler. Versio¬ 
ne in alta risoluzione per Apple del famoso videogame a gettone. Line 
finder. Questa utility permette di localizzare facilmente i segmenti di 
un programma. Lire 30.000 (abbonati 25.000). 

•AP6/N11 

Stress. In Pascal (occorre language card o Apple Ile o Ile). Per 
giocare, ma soprattutto per inventare giochi, il programma si pone in 
alternativa agli usuali videogame. Lire 55,000 (abbonati 45.000). 

Stress - AP6/N11 

Il programma ideale per chi ha 
l'Apple //c (ma gira anche sul //e) 
e che consente di inventare 
sempre nuovi giochi. 
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Applicando 7 

‘AP7/N12 

Apple pittore. Si possono realizzare sullo schermo capolavori di 
pittura, ottenendo effetti speciali di grande efficacia. Ottovolante. Un 
tutorial per insegnare ai bambini a riconoscere i numeri che rimbalza¬ 
no sullo schermo. Diskblock. Una routine che permette di evitare che 
qualche curioso possa avere libero accesso in programmi riservati. 
Archivio per Apple. Per avere un back-up dei programmi più impor¬ 
tanti da dischetto a cassetta o viceversa. Discoteca. Una banca dati 
che tiene sotto controllo la collezione di longplaying e di cassette. 
Aiuto. Alla fine della battitura di un programma, Aiuto vi dirà quanti 
errori ci sono e a quali linee.Lire 30.000 (abbonati 25.000). 


Apple pittore - AP7 /N12 

Potrete realizzare sullo schermo 
capolavori artistici con effetti 
speciali di grande efficacia 
ma soprattutto facili da ottenere. 


Applicando 8 

•AP8/N13 

Cambiacomandi/Messaggi. Un programma che insegna come per¬ 
sonalizzare i messaggi propri del Dos dell’Apple. Le Mans. Un gran 
premio di formula uno da giocare in due o da soli contro il computer. 
Appleorgano. Una combinazione di linguaggio macchina e di Apple¬ 
soft che trasforma l'Apple in un melodioso organo. Lire 30.000 (abbo¬ 
nati 25.000). 

•AP8/T14 

Momento di una forza/Colpo all’asta. La dimostrazione didattica del 
ribaltamento di un corpo solido appoggiato a un piano quando viene 
applicata una forza orizzontale che supera il momento in senso oppo¬ 
sto dovuto al peso. Hard copy pagine in alta risoluzione. Se la 
stampante risponde a determinati criteri di compatibilità, con questo 
programma si possono far miracoli. Lire 30.000 (abbonati 25.000). 

Applicando 9 

‘AP9/N15 

Fuoco fatuo. Un appassionante adventure game con un percorso 
intricatissimo, mille trabocchetti, un troll e una principessa. Apple 
artista. Per destreggiarsi nella grafica ad alta risoluzione usando lo 
schermo come tavolozza e la tastiera come pennello. Data hello. Una 
semplice routine che permette di disporre di una clock card inizializ- 
zando i dischetti con giorno, mese e anno. Lire 25.000 (abbonati 
20 . 000 ). 

*AP9/T 16 

Sistema di forze parallele. Fissandone l’intensità e la posizione 
questo programma permette di visualizzare il centro di un sistema di 
forze sotto forma numerica e grafica. Traslazione e rotazione di una 


figura piana. Come far ruotare, traslare, rimpicciolire, ingrandire sul 
video una figura piana. Lire 30.000 (abbonati 25.000). 

Applicando 10 

*AP10/N14 

Ripristino. Come ripristinare programmi persi per un’accidentale 
istruzione di New o di Fp. Disk Map. Un detective del Dos per scoprire 
dove e come vengono immagazzinati i dati analizzando la mappa dei 
bit occupati. Autonumber. Una routine per autonumerare automatica- 
mente i programmi e allineare le linee con un ritorno carrello in input. 
Lire 30.000 (abbonati 25.000). 

“AP10/T17 

Rette nel piano cartesiano. Come individuare in cinque modi diversi 
una coppia di rette in un piano cartesiano e avere visualizzate le 
equazioni relative ai valori assegnati. Statistica. Come analizzare la 
correlazione fra due fenomeni o due caratteri e l'indice o coefficiente di 
Bravais che ne effettua la misura. Lire 30.000 (abbonati 25.000). 
Applicando 11 
*AP11/NI 8 

Apple edicola. Una banca dati per avere sotto controllo un articolo, il 
suo numero di pagina, la rivista su cui è stato pubblicato. Disk Zap. Il 
programma indispensabile per il debugging di un dischetto che ne 
risolve la maggior parte dei problemi. Messaggi personali. Quando la 
persona non c’è, per lasciare un messaggio basta impostarlo sulla 
tastiera. L’Apple farà il resto. Comparatore di programmi in basic. 
Una routine per risolvere dubbi sulle diverse versioni di uno stesso 
programma. Trappola per pochi. Un cacciatore contro tre animali 
feroci. Vince chi riesce a intrappolare senza essere intrappolato. Lire 
30.000 (abbonati 25.000). 

*AP11/T 19 

Espressioni. Come risolvere un piccolo dramma familiare con l'aiuto 
di un elaboratore personale. Lire 25.000 (abbonati 20.000). 

Applicando 12-13 

AP12/N20 

Bridge. Un programma in altissima risoluzione grafica che permette di 
imparare il bridge o di giocarlo contro il computer. Microcalc. Un foglio 
elettronico di calcolo, spreadsheet, che mette a disposizione 20 righe 
per 20 colonne per un totale di 400 caselle da riempire come si vuole. 
Applesoft Line Editor. Una potente utility che permette l’editing dei 
programmi in Applesoft e aggiunge all'Apple un più ampio controllo del 
cursore. Lire 30.000 (abbonati 25.000). 

AP12/A21 

Budget (occorre Appleworks). Un prospetto che con l'inserimento di 
dati mensili e di medie preventive calcola automaticamente le medie 
consuntive e i relativi saldi mensili e annui. Lire 15.000. 

AP12/A22 

Budget (occorre Visicalc). Un prospetto che con l’inserimento di dati 
mensili e di medie preventive calcola automaticamente le medie con¬ 
suntive e i relativi saldi mensili e annui. Lire 15.000. 

AP12/A23 

Cinque modelli Spreadsheet, tre modelli data base, due modelli 
Word Processor. Versione per Appleworks. Due dischetti. Lire 
80.000 (abbonati 70.000). 

AP12/A24 

Cinque modelli Spreadsheet Versione per VìsiCalc. Lire 40.000 
(abbonati 35.000). 

(Continua a pag. 98) 


Compilare e spedire il tagliando qui sotto a Applicando , Editronica Srl., Corso Monforte 39, 20122 Milano 


Vogliate inviarmi i seguenti dischetti: 


n.. 
n.. 
n.. 
n.. 
n.. 
n.. 
n.. 


/ 


/ 


l 


Sono abbonato : sì □ no □ 


Cognome. Nome . 

Via. Cap. 

Città. Prov. 

Scelgo la seguente formula di pagamento: 

□ allego assegno di L.non trasferibile intestato a Editronica srl. 

□ allego ricevuta versamento di L. sul cc/p n. 19740208 intestato a 

Editronica srl. - Corso Monforte, 39 - 20122 Milano 

□ pago fin d'ora l'importo di L. con la mia carta 

di credito Bank Americard N. 

scadenza .autorizzando la Banca 

d'America e d’Italia ad addebitarne l'importo sul mio conto BankAmericard. 

Data. Firma. 
























































applicando 


\ 





AP12/T25 

Animazione di una rotazione tridimensionale. Un esempio di come 
una rotazione tridimensionale permette di rappresentare gli oggetti 
proprio come li vediamo. Trasformazione da File a Data. Una utility 
per risolvere il problema di aggiungere a un programma preesistente 
delle istruzioni DATA ricavati da un altro file. Lire 25.000 (abbonati 
15.000). 



311 aaajjaiiu3aa 

dal jjifaiyirtjuuiijjt] 

Sia aasaimarafla. 
alauda da jjas* 

’Ja yraidatj. 

AP12/N20 


Applicando 14 

AP14/N26 

Golf. Un programma in altissima risoluzione grafica che permette di 
disegnare il proprio percorso di golf per poi giocarci a piacimento con 
gli amici. Autopiù. Con l’aiuto di questo programma non dimentichere¬ 
te più gli appuntamenti fissi dedicati alla manutenzione della vostra 
automobile. Lire 20.000. 

"AP14/N27 

Applebaby. Tre giochi didattici: il primo per imparare a contare in età 
prescolastica; il secondo per ripassare le tabelline; il terzo per eserci¬ 
tarsi nell’ortografia. Lire 20.000. 

•AP14/A28 

Rimborso spese, (occorre Appleworks), Un prospetto che vi permet¬ 
te di preparare le vostre note spese automaticamente in cinque minuti. 
Lire 15.000. 

•AP14/A29 

Rimborso spese, (occorre VisiCalc). Un prospetto che vi permette di 
preparare le vostre note spese automaticamente in cinque minuti. Lire 
15.000 
'AP14/T30 

Frutteti. Un aiuto a risolvere uno dei più classici problemi di estimo. In- 
stant Poster Voi scrivete con la tastiera del vostro Apple la frase che 
volete, e subito dalla stampante esce un poster formato gigante. Lire 
15.000. 

Applicando 15 

AP15/N31 

Sintetizzatore di suoni. Con questo programma potete dotare i vostri 
lavori di una colonna sonora eccezionale: permette infatti la sinterizza¬ 
zione dei suoni più diversi: dal canto dell'uccellino, alla mitragliatrice, 
dal treno in corsa all’aereo, e tantissimi altri, compresa la musica. 
Volano. Un gioco in alta risoluzione per due sfidanti. Illustratore. Un 
programma di grafica che offre la possibilità di realizzare ottimi disegni 
anche a chi non è troppo ferrato in materia Autoschermo. Crea in 
automatico videate di presentazione dei programmi inseriti in un di¬ 
schetto; dall'aspetto molto professionale, evidenzia infatti i programmi 
con una barra luminosa comandabile con le frecce e fa partire il 
programma cosi evidenziato con un semplice Return. Lire 30.000. 
AP15/A32 

Computer cuisine. Un ricettario computerizzato sul quale memoriz¬ 
zare ingredienti e ricette a centinaia, eliminando così sia ii fastidio di 
mille pezzetti di carta sparsi per i cassetti, sia il pericolo di perdersi 
preziose ricette. Con possibilità di stampa delle singole ricette e un 
menù completo dei migliori piatti creati da Gualtiero Marchesi, il più 
famoso cuoco d’Italia. Lire 20.000. 

AP15/T33 Euclide. Il massimo comun divisore e il minimo comune 
multiplo in un programma che ne permette l’immediata comprensione. 
Isomeri. Fa parte del più ampio progetto americano Seraphim. per lo 
studio della chimica. Lire 15.000 

*/ dischetti contrassegnati con asterisco contengono anche il pro¬ 
gramma Tombola, omaggio natalizio di Applicando e di Compushop, 
via Nomentana 265-273, Roma. 


lo applico, 
tu applichi? 


La pubblicità su 
Applicando è informazione. 
Chi legge Applicando 
possiede un computer 
Apple o sta per acquistarlo. 
Oppure sta per cambiarlo 
con un Apple //e. 

O con un Lisa. 

Oppure non lo cambia 
affatto, se lo tiene stretto, 
ma vuol sapere dove, 
come e cosa fa 
veramente per lui. 

Una nuova marca 
di dischetti? 

Una nuova 
Software House? 

Una nuova stampante 
a basso prezzo? 

Per chi applica, 
è importante saperlo. 
Subito. 


Per la pubblicità 

studiòsfera 888 

I" Strada, 24 

Milano San Felice (Segrate) 

Tel. (02) 75 32 151 

(02) 75 33 939 — 

STUDIÒSFERA 
sas di Berardo & C. 

1 a Strada 24 - Milano S. Fe 
lice - 20090 Segrate MI - te 
lefono 02/7533939- 7532151 
telex 321255 MACORM-C.F. e 
P. Iva 07014830157-C.C.I.A.A. 
Milano 1132820 - Tribunale 
MilanoReg.Soc. n. 64797 
Banca Popolare di 
Milano Ag. 17 
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LATUA AZIENDA 

E IN PERICOLO 


(allesso lo sai) 



Questo dischetto 

contiene 

la tua azienda a 


Questo dischetto 
contiene 
la tua azienda a 


*-55C 


La tua azienda è in pericolo nel suo 
punto vitale: il “computer”. 

Ed è concentrata su pochi supporti 
magnetici che devi proteggere. Dal¬ 
l’incendio soprattutto, dal furto, da at¬ 
ti vandalici o semplicemente da mani 
indiscrete. ■ 

r- 

I RICHIESTA INFORMAZIONI 


MCC 300 E MCC 100 

Due esempi della linea ignifughi 
prodotta dalla svedese HADAK. 


Per informazioni spedire questo coupon, in busta chiu¬ 
sa, a DATAMATIC S.p.A. - via Volturno, 46 - 20124 Milano 
tei. (02) 6073876 (5 linee r.a.) - via Città di Cascia, 29 
00191 Roma - tei. 3273581 (4 linee r.a.). 



è un prodotto 


datamatic 

TRATTA BENE ILTUO CALCOLATORE 


disponibile anche 
presso i migliori 
rivenditori 
di prodotti per 
l’informatica. 


NOME.. 

COGNOME.. 

INDIRIZZO. 

...TEL. 



























SCOPRI LA DIFFERENZA DY SAN 



Perchè Dysan? 
Le Quattro 
Ragioni Per 
Preferire la 
Differenza ^ 
Dysan ^ 


SUPERFICIE DOPO IL BURNISHING 


record liA^rv ( 

GUARD BAND .008' 


RECORD BAND 012’ 


^LUBRIFICANTE 

SUPERFICIE 


SUPERFICIE PRIMA DEL BURNISHING 


SUBSTRATO 


na 


100% di superficie 

/ Esclusiva tecnica 

X Speciale 

(X Certificazione 

!.• testata “error free” 

m% di Burnishing 

i/t lubrificazione 

li totale 


Solo Dysan garantisce che 
tutta la superficie della 
diskette sia realmente 
100% “errar free”: un test 
esclusivo certifica le tracce 
e lo spazio tra le tracce 
assicurando prestazioni 
“errar free” anche in 
presenza di 
disallineamento delle 
testine. 


Solo Dysan garantisce una 
superficie “a specchio” 
grazie alla sua avanzata ed 
unica tecnica di 
“burnishing” - questo 
risultato assicura un 
miglior segnale sulle 
tracce, una minor 
turbolenza sulle testine, 
consentendo un sicuro 
mantenimento dei dati 
dopo milioni e milioni di 
rotazioni. 


Solo Dysan garantisce, 
mediante uno speciale 
procedimento di 
lubrificazione, ottenuto 
trattando la superficie con 
il proprio esclusivo 
lubrificante DY 10, che le 
prestazioni “errar free” 
siano esaltate e mantenute 
nel tempo. 


Solo Dysan garantisce, con 
il suo metodo automatico 
di controllo qualità di tutta 
la produzione (risultato di 
una tecnologia leader nel 
mondo) che ogni diskette 
prodotta sia stata 
singolarmente testata e 
certificata. 



datamatic 

tratta bene 
il tuo calcolatore 


SEDE: Via Volturno, 46 - 20124 Milano - tei. 02/6886795-6886874 
FILIALE: Via Città di Cascia, 29 - 00191 Roma - tei. 06/3279987 
































